home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / itrns211.zip / LIB / TAMIL.MF < prev    next >
Text File  |  1991-08-16  |  71KB  |  2,021 lines
  1. boolean dodraw;
  2. dodraw=true;
  3. boolean goleft;
  4. goleft=false;
  5. def tthinnest=max(hair,2) enddef;
  6. def tthinner=max(1.4hair,2) enddef;
  7. def tthin=max(1.8hair,2) enddef;
  8. def tmed=max(.75curve,2) enddef;
  9. def  tthick=curve enddef;
  10. def tthicker=1.2curve enddef;
  11. def tthickest=1.4curve enddef;
  12.  
  13. string callchar;
  14. numeric oldh; numeric oldw; numeric oldd;
  15.  
  16. def charspec(expr c, w_sharp, h_sharp, d_sharp) =
  17.   oldh:=h; oldw:=w; oldd:=d;
  18.   w:=hround(w_sharp*hppp); h:=vround(h_sharp*hppp); d:=vround(d_sharp*hppp);  
  19. enddef;
  20.  
  21. input tamilmax;
  22.  
  23. def cloney(suffix $,@) =
  24.   y$=y@; y$r=y@r; y$l=y@l;
  25. enddef;
  26.  
  27. def clonex(suffix $,@) =
  28.   x$=x@; x$r=x@r; x$l=x@l;
  29. enddef;
  30.  
  31. def small_iito (suffix @,$)(expr iheight) =
  32. x$99=x@; y$99=y@; pos$99(tthin,180);
  33. x$100=x$99-2.5u; y$100=.5[y$99,y$1]; pos$100(tthin,135);
  34. x$1=x@+.5u; top y$1r=iheight; pos$1(tthick,90);
  35. x$2=x$1+u; y$2=y$1-.5u; pos$2(.7tthick,60);
  36. x$3=x$2; y$3=y$2-2u; pos$3(tthin,-90);
  37. x$4=x$4l=x$4r=x$2; y$4=y$2; y$4r=y$4+1; y$4l=y$4-1;
  38. filldraw stroke z$99e{left}...{up}z$100e...{right}z$1e...z$2e...{left}z$3e...{right}z$4e;
  39. penlabels($1,$2,$3,$4);
  40. enddef;
  41.  
  42. def help_uu =
  43. charspec("9",x_height#,.75x_height#,0);
  44. x181=x101=u; x106=x107=x108=x109=.55w; x111=x112=.8w; x110=w;
  45. x103=x105=.5[x101,x106]; x102=x104=.5[x101,x103];
  46. bot y104r=y106=y107=y111=0; top y105r=y108=top y109r=top y110r=y112=h;
  47. y101=y181=y103=.5y102; y102=.6h;
  48. pos101(.8tthinner,180); pos102(.8tthin,90); pos103(.8tmed,0);
  49. pos104(.8tthin,-90); pos181(.8tthinner,-180); pos105(.8tthick,-270);
  50. pos106(.8tthin,-360); pos107(.8tthin,0); pos108(.8tthin,0);
  51. pos109(.8tthin,90); pos110(.8tthin,90); pos111(.8tthick,0); pos112(.8tthick,0);
  52. if dodraw:
  53. filldraw stroke z101e...{right}z102e...{down}z103e...{left}z104e..z181e...{right}z105e...{down}z106e;
  54. filldraw stroke z107e---z108e; filldraw stroke z109e---z110e;
  55. filldraw stroke z111e---z112e;
  56. fi
  57. enddef;
  58.  
  59.  
  60. cmchar "Tamil vii";
  61. beginchar(115,1.5x_height#+u#,body_height#,0);
  62. adjust_fit(0,0);
  63. callchar:="v";
  64. tspecs;
  65. h:=oldh; w:=oldw; d:=oldd;
  66. x21r=x10l; x21l=x10r; x21=x10; cloney(21,10); small_iito(21,s,h);
  67. endchar;
  68.  
  69. cmchar "tamil a";
  70. beginchar(0,2x_height#,x_height#,.6desc_depth#);
  71. adjust_fit(0,0);
  72. x3=.5[x9,x11]; top y1r=h; y5=y12=h; y2=y4=y6=.5[y3,y1]; y3=.8bar_height; x1=x3;
  73. x4=x8=.4[x9,x11]; x2=.6[x9,x11]; x5=.6[x9,x11]; x6=.7[x9,x11]; x7=.8[x9,x11]; x11=x12=x13=w-u;
  74. x9=u; x10=.15[x9,x11]; y8=-.8d; y13=-d; y7=bar_height; y9=.2bar_height; y10=y11=.25bar_height;
  75. z20=z1;
  76. pos1(tthinnest,90); pos2(tthin,0); pos3(tthinnest,-90); pos4(tthinnest,-180);
  77. pos5(hair,90); pos6(curve,0); pos7(tthick,-360); pos8(tthinner,-450);
  78. pos9(tthinnest,-580); pos10(tthinnest,-630); pos11(tthinnest,-630); pos12(tthick,0);
  79. pos13(tthick,0);pos20(tthinner,-270);
  80. filldraw stroke z1e...z2e...z3e...z4e...z20e...{down}z7e...{left}z8e...{up}z9e...z10e---z11e;
  81. filldraw stroke z12e---z13e;
  82. penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13); endchar;
  83.  
  84. cmchar "tamil aa";
  85. beginchar(1,2.5x_height#,x_height#,1.4desc_depth#);
  86. adjust_fit(0,0);
  87. x3=.5[x9,x11]; top y1r=h; y5=y12=h; y2=y4=y6=.5[y3,y1]; y3=.8bar_height; x1=x3;
  88. x4=x8=.4[x9,x11]; x2=.6[x9,x11]; x5=.6[x9,x11]; x6=.7[x9,x11]; x7=.8[x9,x11]; x11=x12=x13=2x_height-u;
  89. x9=u; x10=.15[x9,x11]; y8=-.48desc_depth; y13=-.6desc_depth; y7=bar_height; y9=.2bar_height; y10=y11=.25bar_height;
  90. z20=z1; x31=x31r=x31l=x11+u; cloney(31,11);
  91. x32r=x13r; y32=y13; pos32(tthinner,0); x34=w-u; y34=y32; pos34(tthinner,-720);
  92. x33=.5[x32,x34]; y33=0; pos33(tthin,-90); x35=.1[x13,x8]; y35=-1.2d; %bot y35l=-d;
  93. pos35(.8tthick,-810); x36=.2[x8,x13]; y36=-desc_depth; pos36(tthin,-900);
  94. x37=.5[x8,x13]; y37=y13; pos37(tthinner,-990);
  95. pos1(tthinnest,90); pos2(tthin,0); pos3(tthinnest,-90); pos4(tthinnest,-180);
  96. pos5(hair,90); pos6(curve,0); pos7(tthick,-360); pos8(tthinner,-450);
  97. pos9(tthinnest,-580); pos10(tthinnest,-630); pos11(tthinnest,-630); pos12(tthick,0);
  98. pos13(tthick,0);pos20(tthinner,-270);
  99. filldraw stroke z1e...z2e...z3e...z4e...z20e...{down}z7e...{left}z8e...{up}z9e...z10e---z31e{right}
  100.   ...{down}z34e...{left}z35e...{up}z36e...{right}z37e;
  101. filldraw stroke z12e---z13e;
  102. penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,31,32,33,34,35,36,37); 
  103. endchar;
  104.  
  105. cmchar "tamil i";
  106. beginchar(2,2x_height#,asc_height#,desc_depth#);
  107. adjust_fit(0,0);
  108. pickup crisp.nib;
  109. x6=.6w; x11=x13=x15=.5w; x16=x17=.9w; x12=.75w;
  110. x5=x7=.55w; x4=.3w; x3=.4w; x2=.5w; x1=.35w;
  111. x8=x10=x14=.15w; x9=.1w; 
  112. y15=h; y5=x_height; y14=y11=.1h; y10=0; y16=.8x_height;
  113. y7=-.1d; y8=y13=y17=-d; y9=y12=-.6d;
  114. y2=y4=y6=.6x_height; y1=.8x_height; y3=.4x_height;
  115. z20=z1; pos20(tthinnest,-200);
  116. z65=.5[z6,z7]; pos65(tthicker,-370);
  117. pos1(tmed,45); pos2(tmed,0); pos3(tthin,-90); pos4(tthinnest,-180);
  118. pos5(tmed,-270); pos6(tthick,-360); pos7(tthicker,-380); pos8(tmed,-450);
  119. pos9(tthinner,-540); pos10(tthinnest,-585); pos11(tthin,-630);
  120. pos12(tthick,-720); pos13(tthin,-810); pos14(tthinner,-880);
  121. pos15(tthick,-990); pos16(tthin,-1060); pos17(tthin,-1060);
  122. filldraw stroke z1e..z2e..z3e..z4e..z20e..z5e..z65e..z8e..z9e..z10e..z11e..z12e..z13e..z14e..z15e...{down}z16e---z17e;
  123. penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); endchar;
  124.  
  125. cmchar "Tamil ii";
  126. beginchar(3,1.125x_height#+2u#,x_height#,0);
  127. adjust_fit(0,0);
  128. callchar:="r";
  129. tspecs;
  130. h:=oldh; w:=oldw; d:=oldd;
  131. x7=.5[x1,x6]; x8=x4-.5dot_size;
  132. top y77r=top y88r=bar_height+.375dot_size;
  133. y7=y8=.5[y77r,y77l];
  134. x77=x7; x88=x8; pos7(.75dot_size,0); pos77(.75dot_size,90);
  135. pos8(.75dot_size,0); pos88(.75dot_size,90);
  136. dot(7,77); dot(8,88);
  137. penlabels(7,8); endchar;
  138.  
  139. cmchar "tamil u";
  140. beginchar(4,2x_height#,x_height#,0);
  141. adjust_fit(0,0);
  142. callchar:="u";
  143. tspecs;
  144. h:=oldh; w:=oldw; d:=oldd;
  145. endchar;
  146.  
  147.  
  148. cmchar "tamil uu";
  149. beginchar(5,2.8x_height#,x_height#,0);
  150. adjust_fit(0,0);
  151. help_uu;
  152. picture V; transform t;
  153. t=identity shifted(1.4x_height,.25x_height);
  154. V=currentpicture transformed t; currentpicture:=V;
  155. h:=oldh; w:=oldw; d:=oldd;
  156. callchar:="u";
  157. tspecs;
  158. h:=oldh; w:=oldw; d:=oldd;
  159. x12=w-u; y12=y11; pos12(tthin,-290);
  160. filldraw stroke z11e--z12e;
  161. endchar;
  162.  
  163. cmchar "tamil e";
  164. beginchar(6,1.6x_height#,x_height#,0);
  165. adjust_fit(0,0);
  166. callchar:="e";
  167. tspecs;
  168. h:=oldh; w:=oldw; d:=oldd;
  169. endchar;
  170.  
  171. cmchar "tamil ai";
  172. beginchar(7,1.75x_height#,x_height#,.8x_height#);
  173. adjust_fit(0,0);
  174. pickup crisp.nib;
  175. y7=y10=h; y4=y8=y9=.2h; y15=y19=-d; y12=.9bar_height;
  176. y21=.25h; y13=-.2d; y14=-.6d; y16=-.8d; y17=y18=-.3d; y20=-.2d;
  177. y1=y3=.4h; y2=.7h; y11=.75h; y85=0;
  178. %
  179. x14=x1=u; x11=x12=w-u; x8=x9=x17=x18=.55[x1,x11]; x85=x8;
  180. x7=.6[x1,x8]; x10=.5[x9,x11]; x3=.6[x1,x8]; x2=x4=.5[x1,x3];
  181. x13=x2; x15=x7-.7u; x16=x17; x19=.5[x18,x11]; x20=.95x11; x21=.9x11;
  182. %
  183. x77=x8; y77=.6h; z99=z77;
  184. pos77(tthick,-360); pos99(tthick,0);
  185. pos1(tthinner,180); pos2(tmed,90); pos3(tthick,0); pos4(tmed,-90);
  186. z55=z1; pos55(tthinner,-180);
  187. %pos6 ?
  188. pos7(tthick,-270); pos8(tthick,-405);
  189. pos9(tthick,-45); pos10(tthin,-90); pos11(tthick,-180); pos12(tthick,-200);
  190. pos21(tthin,-240); pos13(tthin,-240); pos14(tmed,-180); 
  191. pos15(tthick,-90); pos16(tthick,-45); pos17(tthick,-45);
  192. pos18(tthick,-45); pos19(tthick,90); pos20(tmed,225);
  193. pos85(tthin,-270);
  194. %pickup pencircle scaled .2pt
  195. filldraw stroke z1e..z2e{right}..z3e{down}..z4e{left}..z55e...{right}z7e...{down}z77e---z8e;
  196. %pickup crisp.nib
  197. %filldraw stroke z9e---z99e{up}...z10e{right}...{down}z12e..z21e---z13e..z14e{down}...z15e{right}...z16e...{up}z17e;
  198. filldraw stroke z9e---z99e{up}...z10e{right}...{down}z12e...{left}z85e{left}..z14e{down}...z15e{right}...z16e...{up}z17e;
  199. filldraw stroke z18e{down}...z19e{right}...z20e;
  200. %pickup pencircle scaled .2pt
  201. %draw stroke z18e{down}...z19e{right}...z20e;
  202. penlabels(1,2,3,4,55,7,8,9,10,11,12,21,13,14,15,16,17,19,20); endchar;
  203.    
  204. cmchar "Tamil k";
  205. beginchar(8,1.5x_height#,x_height#,0);
  206. adjust_fit(0,0);
  207. callchar:="k";
  208. tspecs;
  209. h:=oldh; w:=oldw; d:=oldd;
  210. endchar;
  211.  
  212. cmchar "Tamil o";
  213. beginchar(9,1.6x_height#,x_height#,.8x_height#);
  214. adjust_fit(0,0);
  215. x1=x5=x16=u; x7=rt x12r=rt x13r=w-u;
  216. x6=.5[x1,x7]; x15=.5[x16,x12]; x17=.1[x16,x12]; x14=.85[x16,x12];
  217. x11=x9; x8=.4[x9,x7]; x9=x10=.7[x1,x7];
  218. x3=.3[x1,x7]; x2=x4=.5[x1,x3];
  219. top y6r=h; bot y15r=-d;
  220. y2=.5h; y1=y5=y3=.5y2;
  221. bot y4r=bot y8r=0;
  222. y9=y10=y2; y7=.3h; y11=-.1d; y12=y13=-.3d;
  223. y14=-.6d; y16=-.5d; y17=-.2d;
  224. pos1(tthin,180); pos2(tthin,90); pos3(tthick,0); pos4(tthin,-90);
  225. pos5(tthin,-180); pos6(tmed,-270); pos7(tthick,-360); pos8(tmed,-450);
  226. pos9(tthin,-540); pos10(tthin,0); pos11(tmed,5); pos12(tthin,10);
  227. pos13(tthick,10); pos14(tthick,0); pos15(tmed,-90); pos16(tthinner,-180);
  228. pos17(tmed,-250);
  229. filldraw stroke z1e...{right}z2e...{down}z3e...{left}z4e...z5e...{right}z6e
  230.   ...{down}z7e...{left}z8e...z9e;
  231. % pickup pencircle scaled .2pt;
  232. filldraw stroke z10e..z11e...{right}z12e;
  233. filldraw stroke z13e...z14e...{left}z15e...{up}z16e...z17e;
  234. penlabels(1,2,3,4,6,7,8,9,11,12,14,15,16,17);
  235. endchar;
  236.  
  237.  
  238. cmchar "Tamil ki";
  239. beginchar(10,1.8x_height#,asc_height#,0);
  240. adjust_fit(0,0);
  241. callchar:="k";
  242. tspecs;
  243. h:=oldh; w:=oldw; d:=oldd;
  244. z45=z21; x46=x3; top y46r=h; x47=x48=w-u; y47=y4; y48=0;
  245. pos45(tthinnest,270); pos46(tthick,90); pos47(tthinner,0);
  246. x48l=x48-.5; x48r=x48+.5; y48l=y48r=0;
  247. filldraw stroke z45e{left}...{right}z46e...z47e{down}---z48e;
  248. penlabels(46,47,48);
  249. endchar;
  250.  
  251. cmchar "Tamil kii";
  252. beginchar(11,1.5x_height#,body_height#,0);
  253. adjust_fit(0,0);
  254. callchar:="k";
  255. tspecs;
  256. h:=oldh; w:=oldw; d:=oldd;
  257. z45=z21; x46=x3; top y46r=h; 
  258. pos45(tthinnest,270); pos46(tmed,90); 
  259. x47=.6[x3,x4]; y47=.9[y3,y46]; x48=x4; y48=.5[y3,y46];
  260. y49=.3[y3,y46]; x49=x47; x50=.2[x3,x4]; y50=y48; z51=z47;
  261. pos47(.7tmed,45); pos48(tthinner,0); pos49(tthinnest,-90);
  262. pos50(tthinnest,-180); pos51(tthinnest,-225);
  263. filldraw stroke z45e{left}...{right}z46e...z47e...{down}z48e...{left}z49e...{up}z50e...z51e;
  264. penlabels(46,47,48,49,50);
  265. endchar;
  266.  
  267. cmchar "Tamil ku";
  268. beginchar(12,2x_height#,asc_height#,desc_depth#);
  269. adjust_fit(0,0);
  270. callchar:="c";
  271. tspecs;
  272. h:=oldh; w:=oldw; d:=oldd;
  273. x45=x5; bot y45r=-d; pos45(tthick,-450);
  274. x46=x46r=x46l=x2; y46=y2; y46r=y46+1; y46l=y46-1;
  275. y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=.7[x3,x4];
  276. x47=-.25x_height; y47=y8; pos47(tthin,-540);
  277. filldraw stroke z25e---z26e{right}...z45e...{up}z47e...{right}z46e;
  278. picture V; transform t; t=identity shifted(.4x_height,0);
  279. V=currentpicture transformed t; currentpicture:=V;
  280. penlabels(26,45,46,47);
  281. endchar;
  282.  
  283. cmchar "Tamil kuu";
  284. beginchar(13,2.1x_height#,x_height#,0);
  285. adjust_fit(0,0);
  286. callchar:="c";
  287. tspecs;
  288. h:=oldh; w:=oldw; d:=oldd;
  289. cloney(26,25); x26=x26l=x26r=.6[x3,x4];
  290. x28=x4; y28=0; x30=x28+(x4-x3); y30=0; top y29l=bar_height; x29=.5[x28,x30];
  291. x31=x30; bot y31l=0; pos31(tthin,90); x32=w-u; bot y32l=0; pos32(tthin,90); 
  292. pos28(tthin,0); pos29(tthinner,-90); pos30(tthin,-180);
  293. filldraw stroke z25e--z26e{right}...{down}z28e;
  294. filldraw stroke z28e{up}...{right}z29e...{down}z30e;
  295. filldraw stroke z31e--z32e;
  296. penlabels(26,28,29,30,31); endchar;
  297.  
  298. cmchar "Tamil long o";
  299. beginchar(14,1.6x_height#,x_height#,.8x_height#);
  300. adjust_fit(0,0);
  301. x1=x5=x16=u; x7=rt x12r=rt x13r=w-u;
  302. x6=.5[x1,x7]; x15=.5[x16,x12]; x17=.25[x16,x12]; x14=.85[x16,x12];
  303. x11=x9; x8=.4[x9,x7]; x9=x10=.7[x1,x7];
  304. x3=.3[x1,x7]; x2=x4=.5[x1,x3];
  305. top y6r=h; bot y15r=-d;
  306. y2=.5h; y1=y5=y3=.5y2;
  307. bot y4r=bot y8r=0;
  308. y9=y10=y2; y7=.3h; y11=-.1d; y12=y13=-.3d;
  309. y14=-.6d; y16=-.5d; y17=-.2d;
  310. x18=.4[x16,x12]; y18=-.5d; pos18(tthinner,-360);
  311. pos1(tthin,180); pos2(tthin,90); pos3(tthick,0); pos4(tthin,-90);
  312. pos5(tthin,-180); pos6(tmed,-270); pos7(tthick,-360); pos8(tmed,-450);
  313. pos9(tthin,-540); pos10(tthin,0); pos11(tmed,5); pos12(tthin,10);
  314. pos13(tthick,10); pos14(tthick,0); pos15(tmed,-90); pos16(tthinner,-180);
  315. pos17(tmed,-250);
  316. filldraw stroke z1e...{right}z2e...{down}z3e...{left}z4e...z5e...{right}z6e
  317.   ...{down}z7e...{left}z8e...z9e;
  318. % pickup pencircle scaled .2pt;
  319. filldraw stroke z10e..z11e...{right}z12e;
  320. filldraw stroke z13e...z14e...{left}z15e...{up}z16e...{right}z17e...{down}z18e;
  321. penlabels(1,2,3,4,6,7,8,9,11,12,14,15,16,17,18);
  322. endchar;
  323.  
  324. cmchar "tamil long e";
  325. beginchar(15,1.6x_height#,x_height#,desc_depth#);
  326. adjust_fit(0,0);
  327. callchar:="e";
  328. tspecs;
  329. h:=oldh; w:=oldw; d:=oldd;
  330. x10=x4; bot y10r=-d; pos10(tthick,-90);
  331. x11=x9; bot y11r=0; pos11(tthick,-90);
  332. filldraw stroke z11e--z10e;
  333. penlabels(10);
  334. endchar;
  335.  
  336. cmchar "tamil ng";
  337. beginchar(16,1.5x_height#,x_height#,0);
  338. adjust_fit(0,0);
  339. callchar:="g";
  340. tspecs;
  341. h:=oldh; w:=oldw; d:=oldd;
  342. endchar;
  343.  
  344. cmchar "Tamil ai matra";
  345. beginchar(17,2x_height#,x_height#,0);
  346. adjust_fit(0,0);
  347. w:=3x_height;
  348. x1=x81=u; x6=.6x10; x8=.6[x1,x6]; x7=.5[x8,x6];
  349. x5=.5[x1,x6]; x3=.5[x1,x8]; x4=x2=.5[x1,x3];
  350. x9=.5[x8,x10]; x10=.7w; x12=.6[x8,x10]; x11=.5[x12,x10];
  351. top y5r=top y9r=h;
  352. bot y4r=bot y7r=bot y11r=0;
  353. y2=y8=y6=y12=y10=.5h;
  354. y81=y1=y3=.5y2;
  355. pos1(tthinner,180); pos2(tthin,90); pos3(tthick,0); pos4(tthin,-90);
  356. pos81(tthinner,-180); pos5(tmed,-270); pos6(tthicker,-360);
  357. pos7(tmed,-450); pos8(tthin,-540); pos9(tmed,-630); pos10(tthicker,-720);
  358. pos11(tmed,-810); pos12(tthin,-900); 
  359. x30=x11; y30=y10; x31=x12; bot y31r=0; pos30(tthick,-720); pos31(tmed,-790);
  360. filldraw stroke z1e...{right}z2e...{down}z3e...{left}z4e..z81e...{right}z5e
  361.   ...{down}z6e...{left}z7e...{up}z8e...{right}z9e...{down}z30e...z31e;
  362. penlabels(1,2,3,4,5,6,7,8,9,30,31);
  363. endchar;
  364.  
  365. cmchar "tamil ngi";
  366. beginchar(18,1.85x_height#,asc_height#,0);
  367. adjust_fit(0,0);
  368. callchar:="g";
  369. tspecs;
  370. h:=oldh; w:=oldw; d:=oldd;
  371. x40=x13; y40=y13; pos40(tthin,0); x41=x40; top y41l=h; pos41(tthick,-90);
  372. x50=x40-2u; y50=.5[y40,y41]; pos50(tmed,-30);
  373. x42=w-u; y42=x_height; x43=x42; y43=y43l=y43r=0; pos42(tthin,-180);
  374. x43r=x43-.6; x43l=x43+.6;
  375. filldraw stroke z40e{left}...{right}z41e...{down}z42e--z43e;
  376. penlabels(41,42,43,44);
  377. endchar;
  378.  
  379.  
  380.  
  381. cmchar "tamil ngii";
  382. beginchar(19,1.75x_height#,body_height#,0);
  383. adjust_fit(0,0);
  384. callchar:="g";
  385. tspecs;
  386. h:=oldh; w:=oldw; d:=oldd;
  387. small_iito(13,s,h);
  388. endchar;
  389.  
  390. cmchar "tamil ngu";
  391. beginchar(20,1.5x_height#,x_height#,desc_depth#);
  392. adjust_fit(0,0);
  393. callchar:="g";
  394. tspecs;
  395. h:=oldh; w:=oldw; d:=oldd;
  396. clonex(40,12); y40=y40l=y40r=-d; 
  397. filldraw stroke z12e--z40e;
  398. endchar;
  399.  
  400. cmchar "tamil nguu";
  401. beginchar(21,1.85x_height#,x_height#,1.5desc_depth#);
  402. adjust_fit(0,0);
  403. callchar:="g";
  404. tspecs;
  405. h:=oldh; w:=oldw; d:=oldd;
  406. clonex(40,12); y40=y40l=y40r=-.5d; 
  407. filldraw stroke z12e--z40e;
  408. x22=w-u; y22=.5y40; x21=.6[x12,x22]; y21=.25d;
  409. pos21(tthinner,-90); pos22(tthin,-180);
  410. x23=.7[x1,x12]; bot y23l=-d; pos23(tthick,-270);
  411. x24=x2; y24=-.5d; pos24(tthin,-360); x25=x7; y25=-.25d; pos25(tthinner,-450);
  412. x26=.5[x1,x12]; y26=-.5d; pos26(tthinnest,-540);
  413. filldraw stroke z40e{up}...{right}z21e...{down}z22e...{left}z23e...{up}z24e
  414.   ...{right}z25e...{down}z26e;
  415. penlabels(40,21,22,23,24,25,26);
  416. endchar;
  417.  
  418. cmchar "tamil e matra";
  419. beginchar(22,1.4x_height#,body_height#,0);
  420. adjust_fit(0,0);
  421. x1=x3=x5=.6w; x2=x1-1.5u; x4=x1+1.5u; top y3l=bar_height;
  422. pos3(1.2tthin,-90); y2=y4=.5[y1,y3]; bot y1l=.25u; pos1(tthin,90);
  423. pos2(tthin,0); pos4(tmed,-180); y5=y1; pos5(tthin,-270);
  424. x6=u; y6=.5h; pos6(tthinner,-360); top y7l=h; x7=.5w; pos7(1.2tmed,-450);
  425. x8=w-u; y8=x_height; pos8(tthin,-540); x9=x8; y9=0; x9r=x9-.6; x9l=x9+.6;
  426. y9r=y9l=y9; x75=x7; bot y75l=0; pos75(tthin,-280);
  427. filldraw stroke z1e...{up}z2e...{right}z3e...{down}z4e...z5e...{left}z75e
  428.   ...{up}z6e...{right}z7e...z8e--z9e;
  429. penlabels(1,2,3,4,5,75,6,7,8,9);
  430. endchar;
  431.  
  432. cmchar "tamil long e matra";
  433. beginchar(23,1.4x_height#,body_height#,0);
  434. adjust_fit(0,0);
  435. x1=x3=x5=x10=x8=x12=w-2.5u; x2=x11=x1-1.5u; x4=x9=x1+1.5u; top y3l=bar_height;
  436. pos3(1.2tthin,-90); y2=y4=.5[y1,y3]; bot y1l=.25u; pos1(tthin,90);
  437. pos2(tthin,0); pos4(tmed,-180); y5=y1; pos5(tthin,-270);
  438. x6=u; y6=.5h; pos6(tthinner,-360); top y7l=h; x7=.55w; pos7(1.2tmed,-450);
  439. x75=x7; bot y75l=0; pos75(tthin,-280);
  440. top y8l=h-.25u; pos8(.8tmed,-460); y9=y11=.5[y8,y10]; y10=y8-y3+y1;
  441. y12=y8; pos9(tthin,-540); pos10(tthin,-630); pos11(tthinner,-720);
  442. pos12(tthinnest,-810);
  443. filldraw stroke z1e...{up}z2e...{right}z3e...{down}z4e...z5e...{left}z75e
  444.   ...{up}z6e...{right}z7e...z8e...{down}z9e...{left}z10e...{up}z11e...z12e;
  445. penlabels(1,2,3,4,5,75,6,7,8,9,10,11,12);
  446. endchar;
  447.  
  448. cmchar "Tamil c";
  449. beginchar(24,1.5x_height#,x_height#,0);
  450. adjust_fit(0,0);
  451. callchar:="c";
  452. tspecs;
  453. h:=oldh; w:=oldw; d:=oldd;
  454. y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u; 
  455. filldraw stroke z25e---z26e;
  456. penlabels(26);
  457. endchar;
  458.  
  459. cmchar "Tamil ci";
  460. beginchar(26,1.7x_height#,asc_height#,0);
  461. adjust_fit(0,0);
  462. callchar:="c";
  463. tspecs;
  464. h:=oldh; w:=oldw; d:=oldd;
  465. y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u-.2x_height; 
  466. filldraw stroke z25e---z26e;
  467. z45=z21; x46=x3; top y46r=h; x47=x48=w-u; y47=y4; y48=0;
  468. pos45(tthinnest,270); pos46(tthick,90); pos47(tthinner,0);
  469. x48l=x48-.5; x48r=x48+.5; y48l=y48r=0;
  470. filldraw stroke z45e{left}...{right}z46e...z47e{down}---z48e;
  471. penlabels(26,46,47,48);
  472. endchar;
  473.  
  474. cmchar "Tamil cii";
  475. beginchar(27,1.6x_height#,body_height#,0);
  476. adjust_fit(0,0);
  477. callchar:="c";
  478. tspecs;
  479. h:=oldh; w:=oldw; d:=oldd;
  480. y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u-.1x_height; 
  481. filldraw stroke z25e---z26e;
  482. z45=z21; x46=x3; top y46r=h; 
  483. pos45(tthinnest,270); pos46(tmed,90); 
  484. x47=.6[x3,x4]; y47=.9[y3,y46]; x48=x4; y48=.5[y3,y46];
  485. y49=.3[y3,y46]; x49=x47; x50=.2[x3,x4]; y50=y48; z51=z47;
  486. pos47(.7tmed,45); pos48(tthinner,0); pos49(tthinnest,-90);
  487. pos50(tthinnest,-180); pos51(tthinnest,-225);
  488. filldraw stroke z45e{left}...{right}z46e...z47e...{down}z48e...{left}z49e...{up}z50e...z51e;
  489. penlabels(26,46,47,48,49,50);
  490. endchar;
  491.  
  492. cmchar "Tamil cu";
  493. beginchar(28,1.65x_height#,x_height#,0);
  494. adjust_fit(0,0);
  495. callchar:="c";
  496. tspecs;
  497. h:=oldh; w:=oldw; d:=oldd;
  498. y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u; 
  499. filldraw stroke z25e---z26e;
  500. x27=x28=.5[x25,x26]; y27=y26; y28=0; pos27(tmed,0); pos28(tmed,0);
  501. filldraw stroke z27e--z28e;
  502. penlabels(26,27,28);
  503. endchar;
  504.  
  505. cmchar "Tamil cuu";
  506. beginchar(29,2x_height#,x_height#,desc_depth#);
  507. adjust_fit(0,0);
  508. w:=1.65x_height;
  509. callchar:="c";
  510. tspecs;
  511. h:=oldh; w:=oldw; d:=oldd;
  512. y26=y25; y26l=y25l; y26r=y25r; x26=x26l=x26r=w-u; 
  513. filldraw stroke z25e---z26e;
  514. x27=x28=.5[x25,x26]; y27=y26; y28=0; pos27(tmed,0); pos28(tmed,0);
  515. filldraw stroke z27e--z28e;
  516. x40=x6; bot y40r=-d; pos40(tthick,-90);
  517. x41=-.25x_height; y41=y8; x42=x42l=x42r=x2; y42=y2; y42r=y42+.6; y42l=y42-.6;
  518. pos41(tthinner,-180);
  519. x48=x28; y48=0; pos48(tthinner,180); x49=w-u; y49=0; pos49(tthin,0);
  520. filldraw stroke z48e{up}...{down}z49e...{left}z40e...{up}z41e...{right}z42e;
  521. picture V; transform t; t=identity shifted(.35x_height,0);
  522. V=currentpicture transformed t; currentpicture:=V;
  523. penlabels(26,27,28,40,41);
  524. endchar;
  525.  
  526. cmchar "tamil ny";
  527. beginchar(32,2x_height#+2u#,x_height#,1.2desc_depth#);
  528. adjust_fit(0,0);
  529. w:=1.7x_height;
  530. callchar:="e";
  531. tspecs;
  532. h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0);
  533. x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); 
  534. y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9]; bot y12l=-d; pos12(tthick,-270);
  535. x13=-.2x_height; y13=.3bar_height; pos13(tthin,-360); x14=x5-.75u; y14=y5; pos14(tthinner,-400);
  536. filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...z14e;
  537. picture V; transform t; t=identity shifted(.3x_height,0);
  538. V=currentpicture transformed t; currentpicture:=V;
  539. endchar;
  540.  
  541. cmchar "tamil nyi";
  542. beginchar(34,2.2x_height#+2u#,asc_height#,1.2desc_depth#);
  543. adjust_fit(0,0);
  544. w:=1.7x_height;
  545. callchar:="e";
  546. tspecs;
  547. h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0);
  548. x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); 
  549. y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9]; bot y12l=-d; pos12(tthick,-270);
  550. x13=-.2x_height; y13=.3bar_height; pos13(tthin,-360); x14=x5-.75u; y14=y5; pos14(tthinner,-400);
  551. filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...z14e;
  552. x30=x8; y30=x_height; pos30(tthin,0); x31=x30; top y31l=h; pos31(tthick,-90);
  553. x33=x32=x11+2u; y32=x_height; y33=y33l=y33r=0; pos32(tthin,-180); x33l=x33+.6;
  554. x33r=x33-.6; filldraw stroke z30e{left}...{right}z31e...{down}z32e--z33e;
  555. picture V; transform t; t=identity shifted(.3x_height,0);
  556. V=currentpicture transformed t; currentpicture:=V;
  557. endchar;
  558.  
  559. cmchar "tamil nyii";
  560. beginchar(35,2x_height#+2u#,body_height#,1.2desc_depth#);
  561. adjust_fit(0,0);
  562. w:=1.7x_height;
  563. callchar:="e";
  564. tspecs;
  565. h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0);
  566. x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); 
  567. y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9]; bot y12l=-d; pos12(tthick,-270);
  568. x13=-.2x_height; y13=.3bar_height; pos13(tthin,-360); x14=x5-.75u; y14=y5; pos14(tthinner,-400);
  569. filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...z14e;
  570. small_iito(8,s,h);
  571. picture V; transform t; t=identity shifted(.3x_height,0);
  572. V=currentpicture transformed t; currentpicture:=V;
  573. endchar;
  574.  
  575. cmchar "tamil nyu";
  576. beginchar(36,2x_height#+u#,x_height#,1.2desc_depth#);
  577. adjust_fit(0,0);
  578. w:=1.7x_height;
  579. callchar:="e";
  580. tspecs;
  581. h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0);
  582. x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); 
  583. y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9];  y12=-d; pos12(tthick,-270);
  584. x13=0; y13=-.3d; pos13(tthin,-360); x14=x13+.2u; y14=y13+.2u; pos14(tthin,-450);
  585. x15=x11+1.5u; y15=y14; pos15(tthin,-450); 
  586. x16=x15; y16=y15r; pos16(tthick,0); x17=x16; y17=x_height; pos17(tthick,0);
  587. filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...{right}z14e--z15e;
  588. filldraw stroke z16e--z17e;
  589. penlabels(10,11,12,13,14,15,16,17);
  590. endchar;
  591.  
  592.  
  593. cmchar "tamil nyuu";
  594. beginchar(37,2.4x_height#+2u#,x_height#,1.2desc_depth#);
  595. adjust_fit(0,0);
  596. w:=1.7x_height;
  597. callchar:="e";
  598. tspecs;
  599. h:=oldh; w:=oldw; d:=oldd; x99=x9; y99=0; pos99(tthin,0);
  600. x11=x9+4u; x10=.5[x9,x11]; top y10l=bar_height; pos10(tmed,-90); 
  601. y11=.2bar_height; pos11(tthin,-180); x12=.5[x4,x9]; y12=-d; pos12(tthick,-270);
  602. x13=0; y13=-.3d; pos13(tthin,-360); x14=x13+.2u; y14=y13+.2u; pos14(tthin,-450);
  603. x15=x11+2u; y15=y14; pos15(tthin,-450); 
  604. x16=x15; y16=y15r; pos16(tthin,0); x17=x16; y17=x_height; pos17(tthin,0);
  605. filldraw stroke z99e{up}...{right}z10e...{down}z11e...{left}z12e...{up}z13e...{right}z14e--z15e;
  606. filldraw stroke z16e--z17e;
  607. w:=2.4x_height+2u;
  608. top y18r=y17; x18=x17l; pos18(tmed,90); y19=y18; x19=w-u; x40r=x19-u;
  609. y40=y17; x21=x40; y21=0; pos19(tmed,90); pos40(tmed,0); pos21(tmed,0);
  610. filldraw stroke z18e--z19e; filldraw stroke z40e--z21e;
  611. penlabels(10,11,12,13,14,15,16,17,18,19,40,21);
  612. endchar;
  613.  
  614. cmchar "Tamil t dot";
  615. beginchar(40,1.75x_height#,x_height#,0);
  616. adjust_fit(0,0);
  617. callchar:="T";
  618. tspecs;
  619. h:=oldh; w:=oldw; d:=oldd;
  620. endchar;
  621.  
  622. cmchar "Tamil t dot i";
  623. beginchar(42,1.75x_height#,x_height#,desc_depth#);
  624. adjust_fit(0,0);
  625. callchar:="T";
  626. tspecs;
  627. h:=oldh; w:=oldw; d:=oldd;
  628. x5=.7[x3,x4]; bot y5r=0; pos5(tthin,270); x6=x5-1.5u; top y6r=h; pos6(tthick,90);
  629. x7=x5; y7=bar_height; pos7(tthin,0); x8=x7; y8=-d; pos8(tthinnest,0);
  630. x40=x1; y40=.6[y1,y2];
  631. filldraw stroke z5e{z40-z5}...{right}z6e...{down}z7e--z8e;
  632. penlabels(5,6,7,8); endchar;
  633.  
  634. cmchar "Tamil t dot ii";
  635. beginchar(43,1.75x_height#,x_height#,0);
  636. adjust_fit(0,0);
  637. callchar:="T";
  638. tspecs;
  639. h:=oldh; w:=oldw; d:=oldd;
  640. x5=.7[x3,x4]; y5=0; pos5(tmed,180);
  641. small_iito(5,s,x_height);
  642. penlabels(5,6,7,8); endchar;
  643.  
  644. cmchar "tamil t dot u";
  645. beginchar(44,1.6x_height#,body_height#,desc_depth#);
  646. adjust_fit(0,0);
  647. x1=x2=.45w; y1=x_height; y2=0; pos1(tmed,0); pos2(tmed,0);
  648. x3r=x2r; y3=y2; pos3(tthinner,0); x5l=w-2.5u; y5=.5[y4,y6]; pos5(tthinner,-180);
  649. x4=.5[x3,x5]; y4=bar_height; pos4(tthin,-90);
  650. x6=x3; bot y6l=-d; pos6(tthick,-270); x7=u; y7=.5[y6,y8]; pos7(tthinner,-360);
  651. x8=x1+u; top y8l=h; pos8(tmed,-450); x9=x10=w-u; y9=y1; pos9(tthin,-540);
  652. y10=y10r=y10l=0; x10l=x10+.6; x10r=x10-.6;
  653. filldraw stroke z1e--z2e;
  654. filldraw stroke z3e{up}...{right}z4e...{down}z5e...{left}z6e...{up}z7e...{right}z8e...{down}z9e--z10e;
  655. penlabels(1,2,4,5,6,7,8,9,10);
  656. endchar;
  657.  
  658. cmchar "tamil t dot uu";
  659. beginchar(45,1.6x_height#,body_height#,desc_depth#);
  660. adjust_fit(0,0);
  661. x1=x2=.45w; y1=x_height; y2=0; pos1(tmed,0); pos2(tmed,0);
  662. x3r=x2r; y3=y2; pos3(tthinner,0); x5l=w-2.5u; y5=.5[y4,y6]; pos5(tthinner,-180);
  663. x4=.5[x3,x5]; y4=bar_height; pos4(tthin,-90);
  664. x6=x3; bot y6l=-d; pos6(tthick,-270); x7=u; y7=.5[y6,y8]; pos7(tthinner,-360);
  665. x8=x1+u; top y8l=h; pos8(tmed,-450); x9=w-3.5u; y9=asc_height-.25u;
  666. x10=x9+1.5u; y10=.5[y9,y11]; x11=x9; y11=y9-4u; x12=x9-1.5u; y12=y10;
  667. x13=x9; y13=y9; pos9(tthin,-470); pos10(tthin,-540); pos11(tthinner,-630);
  668. pos12(tthinnest,-720); x13l=x13r=x13; y13l=y13+.6; y13r=y13-.6;
  669. filldraw stroke z1e--z2e;
  670. filldraw stroke z3e{up}...{right}z4e...{down}z5e...{left}z6e...{up}z7e...{right}z8e
  671.   ...z9e...{down}z10e...{left}z11e...{up}z12e...{right}z13e;
  672. penlabels(1,2,4,5,6,7,8,9,10,11,12,13);
  673. endchar;
  674.  
  675. cmchar "Tamil n dot";
  676. beginchar(48,2.8x_height#+u#,x_height#,0);
  677. adjust_fit(0,0);
  678. callchar:="1";
  679. tspecs;
  680. h:=oldh; w:=oldw; d:=oldd;
  681. filldraw stroke z13e---z14e;
  682. filldraw stroke z15e---z16e;
  683. endchar;
  684.  
  685. cmchar "Tamil n.aa";
  686. beginchar(49,2.8x_height#+3u#,x_height#,1.2desc_depth#);
  687. adjust_fit(0,0);
  688. callchar:="1";
  689. tspecs;
  690. h:=oldh; w:=oldw; d:=oldd;
  691. x21=x16; y21=y6;
  692. y22=-d; x22=.4[x1,x21];
  693. x23=x1; y23=.8x_height;
  694. pos21(tthick,-1080); pos22(tthin,-1170);
  695. y23l+.5=y23r-.5=y23; x23l=x23; x23r=x23-1;
  696. filldraw stroke z13e{right}...{down}z21e...{left}z22e...{right}z23e;
  697. picture V; transform t; t=identity shifted(3u,0);
  698. V=currentpicture transformed t; currentpicture:=V;
  699. %penlabels(21,22,23);
  700. endchar;
  701.  
  702. cmchar "Tamil n.i";
  703. beginchar(50,3x_height#+u#,asc_height#,0);
  704. adjust_fit(0,0);
  705. callchar:="1";
  706. tspecs;
  707. h:=oldh; w:=oldw; d:=oldd;
  708. filldraw stroke z13e---z14e;
  709. filldraw stroke z15e---z16e;
  710. x17=.5[x13,x14]; top y17l=x_height; x18=x17; top y18r=h;
  711. pos17(tthin,270); pos18(tthick,90);
  712. x20=x19=x14+u; y19=x_height; y20=y20r=y20l=0; 
  713. pos19(tthin,0); x20l=x20-.6; x20r=x20+.6;
  714. filldraw stroke z17e{left}...{right}z18e...{down}z19e--z20e;
  715. penlabels(17,18,19,20);
  716. endchar;
  717.  
  718. cmchar "Tamil n.ii";
  719. beginchar(51,3x_height#,body_height#,0);
  720. adjust_fit(0,0);
  721. callchar:="1";
  722. tspecs;
  723. h:=oldh; w:=oldw; d:=oldd;
  724. filldraw stroke z13e---z14e;
  725. filldraw stroke z15e---z16e;
  726. x17=.5[x13,x14]; top y17l=x_height; pos17(tthin,270); 
  727. small_iito(17,s,h);
  728. penlabels(17);
  729. endchar;
  730.  
  731. cmchar "Tamil n.u";
  732. beginchar(52,2.8x_height#+3u#,x_height#,1.2desc_depth#);
  733. adjust_fit(0,0);
  734. callchar:="1";
  735. tspecs;
  736. h:=oldh; w:=oldw; d:=oldd;
  737. x21=x16+u; y21=y6;
  738. y22=-d; x22=.6[x1,x21];
  739. x23=x1; y23=-.3d; x24=x23+.2u; y24=y23+.2u; x25=w-u; y25=y24;
  740. x27r=x26r=x25; y27=x_height; y26=y25r;
  741. pos21(tthin,-1080); pos22(tthick,-1170);
  742. pos23(tthin,-1260); pos24(tthin,-1350); pos25(tthin,-1350);
  743. filldraw stroke z13e{right}...{down}z21e...{left}z22e...{up}z23e...{right}z24e--z25e;
  744. pos26(tmed,0); pos27(tmed,0); filldraw stroke z26e--z27e;
  745. penlabels(21,22,23,24,25,27);
  746. endchar;
  747.  
  748. cmchar "Tamil n.uu";
  749. beginchar(53,3.6x_height#+u#,x_height#,1.2desc_depth#);
  750. adjust_fit(0,0);
  751. w:=3x_height+u;
  752. callchar:="1";
  753. tspecs;
  754. h:=oldh; w:=oldw; d:=oldd;
  755. x21=x16+u; y21=y6;
  756. y22=-d; x22=.6[x1,x21];
  757. x23=x1; y23=-.3d; x24=x23+.2u; y24=y23+.2u; x25=w-u; y25=y24;
  758. x27r=x26r=x25; y27=x_height; y26=y25r;
  759. pos21(tthin,-1080); pos22(tthick,-1170);
  760. pos23(tthin,-1260); pos24(tthin,-1350); pos25(tthin,-1350);
  761. filldraw stroke z13e{right}...{down}z21e...{left}z22e...{up}z23e...{right}z24e--z25e;
  762. pos26(tmed,0); pos27(tmed,0); filldraw stroke z26e--z27e;
  763. w:=3.6x_height+u; x28=x27l; top y28r=y27; y29=y28; y30=y27; x29=w-u; x30=x29-2u;
  764. x31=x30; y31=0;
  765. pos28(tthin,90); pos29(tthin,90); pos30(tthin,0); pos31(tthin,0);
  766. filldraw stroke z28e--z29e; filldraw stroke z30e--z31e;
  767. penlabels(21,22,23,24,25,27,28,29,30,31);
  768. endchar;
  769.  
  770.  
  771.  
  772. cmchar "Tamil n dot ai";
  773. beginchar(54,3.8x_height#+u#,asc_height#,0);
  774. adjust_fit(0,0);
  775. callchar:="1";
  776. dodraw:=false;
  777. tspecs;
  778. dodraw:=true;
  779. h:=oldh; w:=oldw; d:=oldd;
  780. aipoints;
  781. z211=.5[z210,z2]; pos211(tthin,135);
  782. filldraw stroke z201e...{down}z202e...{left}z203e...{up}z204e...z205e...{right}z206e
  783.   ...{down}z207e...z208e...{down}z209e...{right}z210e...z211e
  784.   ...{right}z2e...{down}z3e...{left}z4e..z81e...{right}z5e
  785.   ...{down}z6e...{left}z7e...{up}z8e...{right}z9e...{down}z10e
  786.   ...{left}z11e...{up}z12e...{right}z13e---z14e;
  787. filldraw stroke z15e---z16e;
  788. picture V; transform t; t=identity shifted(x_height,0);
  789. V=currentpicture transformed t; currentpicture:=V;
  790. endchar;
  791.  
  792. cmchar "Tamil t";
  793. beginchar(56,1.7x_height#,x_height#,1.2desc_depth#);
  794. adjust_fit(0,0);
  795. callchar:="c";
  796. tspecs;
  797. h:=oldh; w:=oldw; d:=oldd;
  798. %
  799. % finish with tail for t shape
  800. cloney(61,25); x61r=x61l=x61=.5[x3,x4];
  801. rt x62r=w-u; y62=.5y61; pos62(tthick,0);
  802. y63=y64=-.3d; lft y66l=-d; y65=.4[y64,y66];
  803. x63=x61; x64=x2; x65=u; x66=.7[x65,x64];
  804. pos63(tthin,-90); pos64(tthin,-90); pos65(tthinner,0);
  805. pos66(tthick,45);
  806. %filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e---z64e{left}...{down}z65e..z66e;
  807. filldraw stroke z66e...{up}z65e...{right}z64e---z63e{right}...{up}z62e...{left}z61e---z25e;
  808. penlabels(45,47,48,61,62,63,64,65,66);
  809. endchar;
  810.  
  811.  
  812. cmchar "Tamil ti";
  813. beginchar(58,1.85x_height#,asc_height#,1.2desc_depth#);
  814. adjust_fit(0,0);
  815. callchar:="c";
  816. tspecs;
  817. h:=oldh; w:=oldw; d:=oldd;
  818. %
  819. % draw the i loop
  820. z45=z21; x46=x3; top y46r=h; x47=x48=w-u; y47=y4; y48=0;
  821. pos45(tthinnest,270); pos46(tthick,90); pos47(tthinner,0);
  822. x48l=x48-.5; x48r=x48+.5; y48l=y48r=0;
  823. filldraw stroke z45e{left}...{right}z46e...z47e{down}---z48e;
  824. %
  825. % finish with tail for t shape
  826. cloney(61,25); x61r=x61l=x61=.5[x3,x4];
  827. rt x62r=.5[x4,x48]; % note this is based on position of i-loop
  828. y62=.5y61; pos62(tthick,0);
  829. y63=y64=-.3d; lft y66l=-d; y65=.4[y64,y66];
  830. x63=x61; x64=x2; x65=u; x66=.7[x65,x64];
  831. pos63(tthinner,-90); pos64(tthinner,-90); pos65(tthinner,0);
  832. pos66(tthick,45);
  833. %filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e---z64e{left}...{down}z65e..z66e;
  834. filldraw stroke z66e...{up}z65e...{right}z64e---z63e{right}...{up}z62e...{left}z61e---z25e;
  835. penlabels(45,47,48,61,62,63,64,65,66);
  836. endchar;
  837.  
  838. cmchar "Tamil tii";
  839. beginchar(59,1.65x_height#,asc_height#,1.2desc_depth#);
  840. adjust_fit(0,0);
  841. callchar:="c";
  842. tspecs;
  843. h:=oldh; w:=oldw; d:=oldd;
  844. %
  845. % do the upper loop for ii
  846. z45=z21; x46=x3; top y46r=h; 
  847. pos45(tthinnest,270); pos46(tmed,90); 
  848. x47=.6[x3,x4]; y47=.9[y3,y46]; x48=x4; y48=.5[y3,y46];
  849. y49=.3[y3,y46]; x49=x47; x50=.2[x3,x4]; y50=y48; z51=z47;
  850. pos47(.7tmed,45); pos48(tthinner,0); pos49(tthinnest,-90);
  851. pos50(tthinnest,-180); pos51(tthinnest,-225);
  852. filldraw stroke z45e{left}...{right}z46e...z47e...{down}z48e...{left}z49e...{up}z50e...z51e;
  853. %
  854. % finish with tail for t shape
  855. cloney(61,25); x61r=x61l=x61=.5[x3,x4];
  856. rt x62r=w-u; y62=.5y61; pos62(tthick,0);
  857. y63=y64=-.3d; lft y66l=-d; y65=.4[y64,y66];
  858. x63=x61; x64=x2; x65=u; x66=.7[x65,x64];
  859. pos63(tthin,-90); pos64(tthin,-90); pos65(tthinner,0);
  860. pos66(tthick,45);
  861. %filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e---z64e{left}...{down}z65e..z66e;
  862. filldraw stroke z66e...{up}z65e...{right}z64e---z63e{right}...{up}z62e...{left}z61e---z25e;
  863. penlabels(45,47,48,49,50,61,62,63,64,65,66);
  864. endchar;
  865.  
  866. cmchar "Tamil tu";
  867. beginchar(60,2.2x_height#,x_height#,1.2desc_depth#);
  868. adjust_fit(0,0);
  869. w:=w-2u;
  870. callchar:="c";
  871. tspecs;
  872. h:=oldh; w:=oldw; d:=oldd;
  873. %
  874. % finish with tail for t shape
  875. cloney(61,25); x61r=x61l=x61=.5[x3,x4];
  876. rt x62r=.35[x4,x90]; y62=.5y61; pos62(tthick,0);
  877. x63=x7; y63=-d; x64=x8-2u; y64=.85[y63,y65]; y66=y65=-.3d;
  878. x65=.25[x64,x8]; x66=w-u;rt x67r=x66; y67=bot y66l; x90=x67; y90=x_height;
  879. pos63(tthin,-90); pos64(tthinner,-180); pos65(tthinner,-270);
  880. pos66(tthinner,-270); pos67(.8tthick,0); pos90(.8tthick,0);
  881. filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e...{up}z64e
  882.  ...{right}z65e---z66e;
  883. filldraw stroke z67e---z90e;
  884. picture V; transform t; t= identity shifted(2u,0);
  885. V=currentpicture transformed t; currentpicture:=V;
  886. penlabels(61,62,63,64,65,66,90);
  887. endchar;
  888.  
  889. cmchar "Tamil tuu";
  890. beginchar(61,2.6x_height#,x_height#,1.2desc_depth#);
  891. adjust_fit(0,0);
  892. w:=2.2x_height-2u;
  893. callchar:="c";
  894. tspecs;
  895. h:=oldh; w:=oldw; d:=oldd;
  896. %
  897. % finish with tail for t shape
  898. cloney(61,25); x61r=x61l=x61=.5[x3,x4];
  899. rt x62r=.35[x4,x90]; y62=.5y61; pos62(tthick,0);
  900. x63=x7; y63=-d; x64=x8-2u; y64=.85[y63,y65]; y66=y65=-.3d;
  901. x65=.25[x64,x8]; x66=w-u;rt x67r=x66; y67=bot y66l; x90=x67; y90=x_height;
  902. pos63(tthin,-90); pos64(tthinner,-180); pos65(tthinner,-270);
  903. pos66(tthinner,-270); pos67(tthin,0); pos90(tthin,0);
  904. filldraw stroke z25e--z61e{right}...{down}z62e...{left}z63e...{up}z64e
  905.  ...{right}z65e---z66e;
  906. filldraw stroke z67e---z90e;
  907. w:=2.6x_height-2u;
  908. x201=x90l; top y201r=x_height; y202=y201; x202=w-u; pos201(tthin,90);
  909. pos202(tthin,90); x203=.6[x201,x202]; y203=x_height; x204=x203;
  910. y204=0; pos203(tmed,0); pos204(tmed,0);
  911. filldraw stroke z201e--z202e; filldraw stroke z203e--z204e;
  912. picture V; transform t; t= identity shifted(2u,0);
  913. V=currentpicture transformed t; currentpicture:=V;
  914. penlabels(61,62,63,64,65,66,90);
  915. endchar;
  916.  
  917. cmchar "Tamil n";
  918. beginchar(64,1.5x_height#,x_height#,1.2desc_depth#);
  919. adjust_fit(0,0);
  920. callchar:="n";
  921. tspecs; h:= oldh; w:=oldw; d:=oldd;
  922. %draw the end loop
  923. filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{left}z11e...{down}z12e..z13e;
  924. endchar;
  925.  
  926. cmchar "Tamil ni";
  927. beginchar(66,1.75x_height#,asc_height#,1.2desc_depth#);
  928. adjust_fit(0,0);
  929. callchar:="n";
  930. tspecs; h:= oldh; w:=oldw; d:=oldd;
  931. %draw the end loop
  932. filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{left}z11e...{down}z12e..z13e;
  933. % draw the i loop
  934. x45=.8[x5,x4]; top y45r=x_height; x46=x45; top y46l=h; x47=x48=w-u; y47=y4; y48=0;
  935. pos45(tthinnest,90); pos46(tthick,-90); pos47(tthinner,-180);
  936. x48l=x48+.65; x48r=x48-.65; y48l=y48r=0;
  937. filldraw stroke z45e{left}...{right}z46e...z47e{down}---z48e;
  938. penlabels(45,46,47,48);
  939. endchar;
  940.  
  941. cmchar "Tamil nii";
  942. beginchar(67,1.65x_height#,body_height#,1.2desc_depth#);
  943. adjust_fit(0,0);
  944. callchar:="n";
  945. tspecs; h:= oldh; w:=oldw; d:=oldd;
  946. %draw the end loop
  947. filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{left}z11e...{down}z12e..z13e;
  948. x31=x9l; y31=x_height; small_iito(31,s,h);
  949. endchar;
  950.  
  951. cmchar "Tamil nu";
  952. beginchar(68,1.8x_height#,x_height#,1.2desc_depth#);
  953. adjust_fit(0,0);
  954. callchar:="n";
  955. tspecs; h:= oldh; w:=oldw; d:=oldd;
  956. %draw the end loop
  957. x70=.5[x1,x6]; y70=-d; x72=w-u; y72=y82; rt x73r=x72;
  958. y73=y72; x74=x73; y74=x_height; 
  959. z81=z12; z82=z11; pos70(tthinner,-90); pos81(tthinner,-180);
  960. pos82(tthinner,-270); pos72(tthinner,-270); 
  961. pos73(.8tthick,0); pos74(.8tthick,0); 
  962. filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z70e...{up}z81e
  963.   ...{right}z82e---z72e;
  964. filldraw stroke z73e--z74e;
  965. penlabels(70,72,73,74,81,82);
  966. endchar;
  967.  
  968. cmchar "Tamil nuu";
  969. beginchar(69,2.1x_height#,x_height#,.5x_height#);
  970. adjust_fit(0,0);
  971. callchar:="n";
  972. tspecs; h:= oldh; w:=oldw; d:=oldd;
  973. %draw the end loop
  974. x70=.5[x1,x6]; y70=-d; x72=w-3u; y72=y82; rt x73r=x72;
  975. y73=y72; x74=x73; y74=x_height; 
  976. z81=z12; z82=z11; pos70(tthinner,-90); pos81(tthinner,-180);
  977. pos82(tthinner,-270); pos72(tthinner,-270); 
  978. pos73(tthinner,0); pos74(tthinner,0); 
  979. filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z70e...{up}z81e
  980.   ...{right}z82e---z72e;
  981. filldraw stroke z73e--z74e;
  982. top y90r=x_height; x90=lft x73l; x91=w-u; y91=y90;
  983. pos90(tthinner,90); pos91(tthinner,90); filldraw stroke z90e--z91e;
  984. rt x92r=x91; y92=x_height; y93=0; x93=x92;
  985. pos92(.8tthick,0); pos93(.8tthick,0); filldraw stroke z92e--z93e;
  986. penlabels(70,72,73,74,81,82,90,91,92,93);
  987. endchar;
  988.  
  989. cmchar "Tamil p";
  990. beginchar(72,1.4x_height#+u#,x_height#,desc_depth#);
  991. adjust_fit(0,0);
  992. callchar:="p";
  993. tspecs;
  994. h:=oldh; w:=oldw; d:=oldd;
  995. endchar;
  996.  
  997. cmchar "Tamil pi";
  998. beginchar(74,1.5x_height#+2u#,asc_height#,0);
  999. adjust_fit(0,0);
  1000. callchar:="p";
  1001. tspecs;
  1002. h:=oldh; w:=oldw; d:=oldd;
  1003. x7=x6; top y7l=h; pos7(tthick,-90); x8=x9=w-u; y8=x_height; y9=y9r=y9l=0;
  1004. x9r=x9-.6; x9l=x9+.6; pos8(tthin,-180);
  1005. filldraw stroke z6e{left}...{right}z7e...{down}z8e--z9e;
  1006. penlabels(7,8,9); endchar;
  1007.  
  1008. cmchar "Tamil pii";
  1009. beginchar(75,1.4x_height#+u#,body_height#,0);
  1010. adjust_fit(0,0);
  1011. callchar:="p";
  1012. tspecs;
  1013. h:=oldh; w:=oldw; d:=oldd;
  1014. x7=x6; x7r=x6l; x7l=x6r; cloney(7,6);
  1015. small_iito(7,s,h);
  1016. endchar;
  1017.  
  1018. cmchar "Tamil pu";
  1019. beginchar(76,1.4x_height#+u#,x_height#,desc_depth#);
  1020. adjust_fit(0,0);
  1021. callchar:="p";
  1022. tspecs;
  1023. h:=oldh; w:=oldw; d:=oldd;
  1024. clonex(7,5); y7r=y7l=y7=-d; filldraw stroke z5e--z7e;
  1025. endchar;
  1026.  
  1027. cmchar "Tamil puu";
  1028. beginchar(77,1.4x_height#+4u#,x_height#,1.4desc_depth#);
  1029. adjust_fit(0,0);
  1030. callchar:="p";
  1031. tspecs;
  1032. h:=oldh; w:=oldw; d:=oldd;
  1033. clonex(7,5); y7r=y7l=y7=-.5d; filldraw stroke z5e--z7e;
  1034. x8=x7; y8=y7; pos8(tthin,0); x10=w-u; y10=.5[y9,y11]; pos10(tthin,-180);
  1035. x9=.5[x8,x10]; top y9l=0; pos9(tthin,-90); x11=.5[x1,x10]; y11=-d;
  1036. x12=x1; y12=-.4d; x13=.25[x1,x4]; y13=-.2d; x14=.5[x1,x4]; y14=-.45d;
  1037. pos11(tthick,-270); pos12(tthin,-360); pos13(tthin,-450); pos14(tthinner,-540);
  1038. filldraw stroke z8e{up}...{right}z9e...{down}z10e...{left}z11e...{up}z12e
  1039.   ...{right}z13e...{down}z14e;
  1040. endchar;
  1041.  
  1042. cmchar "Tamil m";
  1043. beginchar(80,1.6x_height#,x_height#,0);
  1044. adjust_fit(0,0);
  1045. callchar:="m";
  1046. tspecs;
  1047. h:=oldh; w:=oldw; d:=oldd;
  1048. endchar;
  1049.  
  1050. cmchar "Tamil mi";
  1051. beginchar(82,1.85x_height#,asc_height#,0);
  1052. adjust_fit(0,0);
  1053. callchar:="m";
  1054. tspecs;
  1055. h:=oldh; w:=oldw; d:=oldd;
  1056. x10=x6; top y10l=h; y11=x_height; x12=x11=w-u; y12=0;
  1057. pos10(tthick,-90); pos11(tthin,-180); y12r=y12l=y12;
  1058. x12r=x12-.6; x12l=x12+.6;
  1059. filldraw stroke z6e{left}...{right}z10e...{down}z11e--z12e;
  1060. penlabels(10,11,12); endchar;
  1061.  
  1062. cmchar "Tamil mii";
  1063. beginchar(83,1.6x_height#,body_height#,0);
  1064. adjust_fit(0,0);
  1065. callchar:="m";
  1066. tspecs;
  1067. h:=oldh; w:=oldw; d:=oldd;
  1068. x10=x6; y10l=x_height; x10r=x10-.6; x10l=x10+.6; y10=y10l-.6; y10r=y10-.6;
  1069. small_iito(10,s,h);
  1070. endchar;
  1071.  
  1072. cmchar "Tamil mu";
  1073. beginchar(84,2.2x_height#,x_height#,desc_depth#);
  1074. adjust_fit(0,0);
  1075. w:=1.6x_height;
  1076. callchar:="m";
  1077. tspecs;
  1078. h:=oldh; w:=oldw; d:=oldd;
  1079. x9=x8; y9=0; pos9(tthick,-180);
  1080. x10=.25[x2,x8]; bot y10l=-d; pos10(tmed,-270);
  1081. x11=-.6x_height+u; y11=.5bar_height; x12=x1-.5u; y12l=h;
  1082. pos11(tthin,-360); x12l=x12r=x12; y12=y12l-.6; y12r=y12-.6;
  1083. filldraw stroke z9e{down}...{left}z10e...{up}z11e...{right}z12e;
  1084. picture V; transform t; t=identity shifted(.6x_height,0);
  1085. V=currentpicture transformed t; currentpicture:= V;
  1086. endchar;
  1087.  
  1088.  
  1089. cmchar "Tamil muu";
  1090. beginchar(85,2.2x_height#,x_height#,desc_depth#);
  1091. adjust_fit(0,0);
  1092. w:=1.6x_height;
  1093. callchar:="m";
  1094. tspecs;
  1095. h:=oldh; w:=oldw; d:=oldd;
  1096. x9=x8; y9=0; pos9(tthick,-180);
  1097. x10=.25[x2,x8]; bot y10l=-d; pos10(tmed,-270);
  1098. x11=-.6x_height+u; y11=.5bar_height; x12=x1-2.5u; y12l=h;
  1099. pos11(tthin,-360); pos12(tthinnest,-450);
  1100. x13=x12+u; y14=y12-u; x14=x13-2u; y14=y13;
  1101. pos13(tthinnest,-540); x14l=x14-.6; x14r=x14+.6; y14r=y14l=y14;
  1102. filldraw stroke z9e{down}...{left}z10e...{up}z11e...{right}z12e...{down}z13e...{z14-z2}z14e;
  1103. picture V; transform t; t=identity shifted(.6x_height,0);
  1104. V=currentpicture transformed t; currentpicture:= V;
  1105. endchar;
  1106.  
  1107. cmchar "Tamil y";
  1108. beginchar(88,1.5x_height#,x_height#,0);
  1109. adjust_fit(0,0);
  1110. callchar:="y";
  1111. tspecs;
  1112. h:=oldh; w:=oldw; d:=oldd;
  1113. endchar;
  1114.  
  1115. cmchar "Tamil yi";
  1116. beginchar(90,1.9x_height#,asc_height#,0);
  1117. adjust_fit(0,0);
  1118. callchar:="y";
  1119. tspecs;
  1120. h:=oldh; w:=oldw; d:=oldd; 
  1121. x20=x9; y20l=h; pos20(tthick,-90); x21=w-u; y21=x_height; pos21(tthin,-180);
  1122. x22=x21; y22=y22l=y22r=0; x22r=x22-.6; x22l=x22+.6;
  1123. filldraw stroke z9e{left}...{right}z20e...{down}z21e--z22e;
  1124. penlabels(20,21,22); endchar;
  1125.  
  1126. cmchar "Tamil yii";
  1127. beginchar(91,1.65x_height#,body_height#,0);
  1128. adjust_fit(0,0);
  1129. callchar:="y";
  1130. tspecs;
  1131. h:=oldh; w:=oldw; d:=oldd; 
  1132. x20=x9; y20=y9; pos20(tthin,180);
  1133. small_iito(20,s,h);
  1134. endchar;
  1135.  
  1136. cmchar "Tamil yu";
  1137. beginchar(92,1.5x_height#,x_height#,desc_depth#);
  1138. adjust_fit(0,0);
  1139. callchar:="y";
  1140. tspecs;
  1141. h:=oldh; w:=oldw; d:=oldd; 
  1142. clonex(20,10); y20=y20l=y20r=-d;
  1143. filldraw stroke z10e--z20e;
  1144. penlabels(20); endchar;
  1145.  
  1146. cmchar "Tamil yuu";
  1147. beginchar(93,1.75x_height#,x_height#,desc_depth#);
  1148. adjust_fit(0,0);
  1149. callchar:="y";
  1150. tspecs;
  1151. h:=oldh; w:=oldw; d:=oldd; 
  1152. clonex(20,10); y20=y20l=y20r=-.5d;
  1153. filldraw stroke z10e--z20e;
  1154. x22=w-u; y22=0; x21=.6[x10,x22]; y21=.25d;
  1155. pos21(tthinner,-90); pos22(tthin,-180);
  1156. x23=.7[x7,x8]; y23=-1.2d; pos23(tthick,-270);
  1157. x24=x2; y24=-.5d; pos24(tthin,-360); x25=x7; y25=-.25d; pos25(tthinner,-450);
  1158. x26=.5[x7,x8]; y26=-.5d; pos26(tthinnest,-540);
  1159. filldraw stroke z20e{up}...{right}z21e...{down}z22e...{left}z23e...{up}z24e
  1160.   ...{right}z25e...{down}z26e;
  1161. penlabels(20,21,22,23,24,25,26); endchar;
  1162.  
  1163. cmchar "Tamil r";
  1164. beginchar(96,.9x_height#+2u#,x_height#,.75desc_depth#);
  1165. adjust_fit(0,0);
  1166. callchar:="r2";
  1167. tspecs;
  1168. h:=oldh; w:=oldw; d:=oldd;
  1169. x7=x6; bot y7l=y6; x8=x1; bot y8l=-d;
  1170. pos7(tthin,90); pos8(tthin,90);
  1171. filldraw stroke z7e--z8e;
  1172. penlabels(7,8); endchar;
  1173.  
  1174. cmchar "Tamil aa matra";
  1175. beginchar(97,.9x_height#+2u#,x_height#,0);
  1176. adjust_fit(0,0);
  1177. callchar:="r2";
  1178. tspecs;
  1179. h:=oldh; w:=oldw; d:=oldd;
  1180. endchar;
  1181.  
  1182. cmchar "Tamil ri";
  1183. beginchar(98,.9x_height#+3.5u#,asc_height#,0);
  1184. adjust_fit(0,0);
  1185. callchar:="r2";
  1186. tspecs;
  1187. h:=oldh; w:=oldw; d:=oldd;
  1188. x7=.5[x5,x4]; y7=y5; x8=x7; top y8r=h; x9=x10=w-u; y9=x_height; y10=0;
  1189. pos7(tthinner,-90); pos8(tthick,90); pos9(tthin,0);
  1190. x10l=x10-.6; x10r=x10+.6; y10r=y10l=0;
  1191. filldraw stroke z7e{left}...{right}z8e...{down}z9e--z10e;
  1192. penlabels(7,8,9,10); endchar;
  1193.  
  1194. cmchar "Tamil rii";
  1195. beginchar(99,.9x_height#+2.5u#,body_height#,0);
  1196. adjust_fit(0,0);
  1197. callchar:="r2";
  1198. tspecs;
  1199. h:=oldh; w:=oldw; d:=oldd;
  1200. x7=.5[x5,x4]; y7=x_height; pos7(tthinner,-90);
  1201. small_iito(7,s,body_height);
  1202. penlabels(7,8,9,10); endchar;
  1203.  
  1204. cmchar "Tamil ru";
  1205. beginchar(100,.9x_height#+7u#,x_height#,1.2desc_depth#);
  1206. adjust_fit(0,0);
  1207. callchar:="r2";
  1208. tspecs;
  1209. h:=oldh; w:=oldw; d:=oldd;
  1210. x7=x6; y7=y6; x8=.7[x5,x4]; top y8l=bar_height; pos8(tthick,-90);
  1211. pos7(tthin,0); x9=1.4[x5,x4]; y9=0; pos9(tthin,-180);
  1212. x10=.7[x1,x6]; bot y10l=-d; pos10(tthinner,-270); x11=x1-4u; y11=.5bar_height;
  1213. pos11(tthinner,-360); x12=x2-u; top y12l=x_height; pos12(tthinnest,-450);
  1214. filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{up}z11e...{right}z12e;
  1215. picture V; transform t; t=identity shifted(3.75u,0);
  1216. V=currentpicture transformed t; currentpicture:= V;
  1217. penlabels(7,8,9,10,11,12); endchar;
  1218.  
  1219.  
  1220. cmchar "Tamil ruu";
  1221. beginchar(101,.9x_height#+9u#,x_height#,1.2desc_depth#);
  1222. adjust_fit(0,0);
  1223. callchar:="r2";
  1224. tspecs;
  1225. h:=oldh; w:=oldw; d:=oldd;
  1226. x7=x6; y7=y6; x8=.7[x5,x4]; top y8l=bar_height; pos8(tthick,-90);
  1227. pos7(tthin,0); x9=1.4[x5,x4]; y9=0; pos9(tthin,-180);
  1228. x10=.7[x1,x6]; bot y10l=-d; pos10(tthinner,-270); x11=x1-6u; y11=.5bar_height;
  1229. pos11(tthinner,-360); x12=.5[x11,x2]; top y12l=x_height; pos12(tthin,-450);
  1230. x13=.8[x11,x2]; y13=y12-1.5u; x14=.3[x11,x2]; y14=y12-3u;
  1231. pos13(tthin,-540); pos14(tthinner,-600);
  1232. filldraw stroke z7e{up}...{right}z8e...{down}z9e...{left}z10e...{up}z11e...{right}z12e
  1233.   ...{down}z13e...z14e;
  1234. picture V; transform t; t=identity shifted(5.75u,0);
  1235. V=currentpicture transformed t; currentpicture:= V;
  1236. penlabels(7,8,9,10,11,12); endchar;
  1237.  
  1238.  
  1239. cmchar "Tamil l";
  1240. beginchar(104,1.4x_height#,x_height#,0);
  1241. adjust_fit(0,0);
  1242. callchar:="l";
  1243. tspecs;
  1244. h:=oldh; w:=oldw; d:=oldd;
  1245. x11=x9; top y11r=h; x12=x11+.5u; y12=y11-.25u; pos11(tthick,90); pos12(.7tthick,60);
  1246. x13=x12; y13=x12-2u; pos13(tthin,-90); x14r=x14l=x14=x12; y14=y12; y14r=y14+1; y14l=y14-1;
  1247. filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e
  1248.   ...{left}z10e;
  1249. endchar;
  1250.  
  1251. cmchar "Tamil li";
  1252. beginchar(106,1.6x_height#+2u#,body_height#,0);
  1253. adjust_fit(0,0);
  1254. callchar:="l";
  1255. tspecs;
  1256. h:=oldh; w:=oldw; d:=oldd;
  1257. x11=x10; top y11r=h; pos11(tthick,90); x13=x12=w-u; y12=x_height;
  1258. y13r=y13l=y13=0; x13l=x13-.6; x13r=x13+.6; pos12(tthin,0);
  1259. filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e
  1260.   ...{left}z10e...{right}z11e...{down}z12e--z13e;
  1261. %filldraw stroke z10e...{right}z11e...{down}z12e--z13e;
  1262. penlabels(11,12,13);
  1263. endchar;
  1264.  
  1265. cmchar "Tamil lii";
  1266. beginchar(107,1.5x_height#,asc_height#,0);
  1267. adjust_fit(0,0);
  1268. callchar:="l";
  1269. tspecs;
  1270. h:=oldh; w:=oldw; d:=oldd;
  1271. x11=x9; top y11r=h; x12=x11+.5u; y12=y11-.25u; pos11(tthick,90); pos12(.7tthick,60);
  1272. x13=x12; y13=x12-2u; pos13(tthin,-90); x14r=x14l=x14=x12; y14=y12; y14r=y14+1; y14l=y14-1;
  1273. filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e
  1274.   ...{left}z10e...{right}z11e..z12e...{left}z13e...{right}z14e;
  1275. %small_iito(10,s,h);
  1276. endchar;
  1277.  
  1278. cmchar "Tamil lu";
  1279. beginchar(108,2x_height#,x_height#,1.4desc_depth#);
  1280. adjust_fit(0,0);
  1281. callchar:="l";
  1282. tspecs;
  1283. h:=oldh; w:=oldw; d:=oldd;
  1284. filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e
  1285.   ...{left}z10e;
  1286. z21=z8; pos21(tthin,0); x22=.15[x5,x21]; bot y22r=-d; pos22(tthick,-90);
  1287. x23=x81-u; y23=-.4d; x24=x23+.5u; y24=y23+.5u; pos23(tthin,-180); pos24(tthin,-270);
  1288. x25=w-u; y25=y24; pos25(tthin,-270); x26r=x25; x27=x26; pos26(tmed,0);
  1289. y26=y25l; y27=x_height; pos27(tmed,0);
  1290. filldraw stroke z21e{down}...{left}z22e...{up}z23e...{right}z24e--z25e;
  1291. filldraw stroke z26e--z27e;
  1292. penlabels(21,22,23,24,25,26,27);
  1293. endchar;
  1294.  
  1295. cmchar "Tamil luu";
  1296. beginchar(109,2.4x_height#,x_height#,1.4desc_depth#);
  1297. adjust_fit(0,0);
  1298. w:=1.9x_height;
  1299. callchar:="l";
  1300. tspecs;
  1301. h:=oldh; w:=oldw; d:=oldd;
  1302. filldraw stroke z4e...z1e..z2e..z3e..z4e...{up}z81e..z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e
  1303.   ...{left}z10e;
  1304. z21=z8; pos21(tthin,0); x22=.15[x5,x21]; bot y22r=-d; pos22(tthick,-90);
  1305. x23=x81-u; y23=-.4d; x24=x23+.5u; y24=y23+.5u; pos23(tthin,-180); pos24(tthin,-270);
  1306. x25=w-u; y25=y24; pos25(tthin,-270); x26r=x25; x27=x26; pos26(tthin,0);
  1307. y26=y25l; y27=x_height; pos27(tthin,0);
  1308. filldraw stroke z21e{down}...{left}z22e...{up}z23e...{right}z24e--z25e;
  1309. filldraw stroke z26e--z27e;
  1310. w:=2.4x_height;
  1311. x28=x27l; y28r=y27; y29=y28; x29=w-u; pos28(tthin,90); pos29(tthin,90);
  1312. filldraw stroke z28e--z29e;
  1313. x31=x30=.65[x28,x29]; y30=y27; y31=0; pos30(tmed,0); pos31(tmed,0);
  1314. filldraw stroke z30e--z31e;
  1315. penlabels(21,22,23,24,25,26,27,28,29,30);
  1316. endchar;
  1317.  
  1318. cmchar "Tamil lai";
  1319. beginchar(110,2.8x_height#,asc_height#,0);
  1320. adjust_fit(0,0);
  1321. callchar:="l";
  1322. tspecs;
  1323. h:=oldh; w:=oldw; d:=oldd; aipoints;
  1324. z211=.5[z210,z2]; pos211(tthin,135);
  1325. filldraw stroke z201e...{down}z202e...{left}z203e...{up}z204e...z205e...{right}z206e
  1326.   ...{down}z207e...z208e...{down}z209e...{right}z210e...z211e
  1327.   ...{right}z2e...{down}z3e...{left}z4e...{up}z81e...{right}z5e...{down}z6e--z7e{down}...{right}z8e...{up}z9e...{left}z10e;
  1328. picture V; transform t; t=identity shifted(x_height,0);
  1329. V=currentpicture transformed t; currentpicture:=V;
  1330. endchar;
  1331.  
  1332.  
  1333.  
  1334. cmchar "Tamil v";
  1335. beginchar(112,1.4x_height#+2u#,x_height#,0);
  1336. adjust_fit(0,0);
  1337. callchar:="v";
  1338. tspecs;
  1339. h:=oldh; w:=oldw; d:=oldd;
  1340. endchar;
  1341.  
  1342. cmchar "Tamil vi";
  1343. beginchar(114,1.65x_height#+2u#,asc_height#,0);
  1344. adjust_fit(0,0);
  1345. callchar:="v";
  1346. tspecs;
  1347. h:=oldh; w:=oldw; d:=oldd; x21r=x10l; x21l=x10r; x21=x10; cloney(21,10);
  1348. x11=x10; top y11r=h; pos11(tthick,90); x13=x12=w-u; y12=x_height;
  1349. y13r=y13l=y13=0; x13l=x13-.6; x13r=x13+.6; pos12(tthin,0);
  1350. filldraw stroke z21e{left}...{right}z11e...{down}z12e--z13e;
  1351. penlabels(11,12,13);
  1352. endchar;
  1353.  
  1354. cmchar "Tamil vii";
  1355. beginchar(115,1.5x_height#+u#,body_height#,0);
  1356. adjust_fit(0,0);
  1357. callchar:="v";
  1358. tspecs;
  1359. h:=oldh; w:=oldw; d:=oldd;
  1360. x21r=x10l; x21l=x10r; x21=x10; cloney(21,10); small_iito(21,s,h);
  1361. endchar;
  1362.  
  1363. cmchar "Tamil vu";
  1364. beginchar(116,1.5x_height#,x_height#,desc_depth#);
  1365. adjust_fit(0,0);
  1366. callchar:="v";
  1367. tspecs;
  1368. h:=oldh; w:=oldw; d:=oldd;
  1369. clonex(11,9); y11r=y11l=y11=-d; filldraw stroke z9e--z11e;
  1370. penlabels(11); endchar;
  1371.  
  1372. cmchar "Tamil vuu";
  1373. beginchar(117,1.5x_height#+3u#,x_height#,1.4desc_depth#);
  1374. adjust_fit(0,0);
  1375. callchar:="v";
  1376. tspecs;
  1377. h:=oldh; w:=oldw; d:=oldd;
  1378. clonex(11,9); y11r=y11l=y11=-.5d; filldraw stroke z9e--z11e;
  1379. x18=x11; y18=y11; pos18(tthin,0); x20=w-u; y20=.5[y19,y21]; pos20(tthin,-180);
  1380. x19=.5[x18,x20]; top y19l=0; pos19(tthin,-90); x21=.5[x1,x20]; y21=-d;
  1381. x22=x1; y22=-.4d; x23=.25[x1,x9]; y23=-.2d; x24=.5[x1,x9]; y24=-.45d;
  1382. pos21(tthick,-270); pos22(tthin,-360); pos23(tthin,-450); pos24(tthinner,-540);
  1383. filldraw stroke z18e{up}...{right}z19e...{down}z20e...{left}z21e...{up}z22e
  1384.   ...{right}z23e...{down}z24e;
  1385. penlabels(11); endchar;
  1386.  
  1387. cmchar "Tamil z";
  1388. beginchar(120,1.6x_height#,x_height#,1.4desc_depth#);
  1389. adjust_fit(0,0);
  1390. callchar:="m";
  1391. tspecs;
  1392. h:=oldh; w:=oldw; d:=oldd;
  1393. x9=x9r=x9l=x5; y9=-.3d; y9l=y9+.6;y9r=y9-.6; filldraw stroke z8e{down}...{right}z9e;
  1394. x90l=x9l; y90l=y9l; pos90(tthin,-170);
  1395. x10=.4[x1,x5]; bot y10r=-d; x11=x1; y11=.3[y9,y10]; pos10(tthick,-90); pos11(tthin,-180);
  1396. x12=.25[x2,x5]; y12=.5[y2,y11]; pos12(tthinner,40);
  1397. filldraw stroke z9e{left}...{left}z10e...{up}z11e...z12e;
  1398. penlabels(9,10,11,12);
  1399. endchar;
  1400.  
  1401. cmchar "Tamil zi";
  1402. beginchar(122,1.9x_height#,asc_height#,1.4desc_depth#);
  1403. adjust_fit(0,0);
  1404. callchar:="m";
  1405. tspecs;
  1406. h:=oldh; w:=oldw; d:=oldd;
  1407. x9=x9r=x9l=x5; y9=-.3d; y9l=y9+.6;y9r=y9-.6; filldraw stroke z8e{down}...{right}z9e;
  1408. x90l=x9l; y90l=y9l; pos90(tthin,-170);
  1409. x10=.4[x1,x5]; bot y10r=-d; x11=x1; y11=.3[y9,y10]; pos10(tthick,-90); pos11(tthin,-180);
  1410. x12=.25[x2,x5]; y12=.5[y2,y11]; pos12(tthinner,40);
  1411. filldraw stroke z9e{left}...{left}z10e...{up}z11e...z12e;
  1412. x30=x6; top y30l=h; y31=x_height; x32=x31=w-u; y32=0;
  1413. pos30(tthick,-90); pos31(tthin,-180); y32r=y32l=y32;
  1414. x32r=x32-.6; x32l=x32+.6;
  1415. filldraw stroke z6e{left}...{right}z30e...{down}z31e--z32e;
  1416. penlabels(9,10,11,12,30,31,32);
  1417. endchar;
  1418.  
  1419. cmchar "Tamil zii";
  1420. beginchar(123,1.6x_height#,body_height#,1.4desc_depth#);
  1421. adjust_fit(0,0);
  1422. callchar:="m";
  1423. tspecs;
  1424. h:=oldh; w:=oldw; d:=oldd;
  1425. x9=x9r=x9l=x5; y9=-.3d; y9l=y9+.6;y9r=y9-.6; filldraw stroke z8e{down}...{right}z9e;
  1426. x90l=x9l; y90l=y9l; pos90(tthin,-170);
  1427. x10=.4[x1,x5]; bot y10r=-d; x11=x1; y11=.3[y9,y10]; pos10(tthick,-90); pos11(tthin,-180);
  1428. x12=.25[x2,x5]; y12=.5[y2,y11]; pos12(tthinner,40);
  1429. filldraw stroke z9e{left}...{left}z10e...{up}z11e...z12e;
  1430. small_iito(6,s,h);
  1431. penlabels(9,10,11,12);
  1432. endchar;
  1433.  
  1434. cmchar "Tamil zu";
  1435. beginchar(124,2.2x_height#,x_height#,1.4desc_depth#);
  1436. adjust_fit(0,0);
  1437. callchar:="m";
  1438. tspecs;
  1439. h:=oldh; w:=oldw; d:=oldd;
  1440. clonex(88,8); y88r=y88l=y88=-.5d; filldraw stroke z8e--z88e;
  1441. x9=x88; y9=y88; pos9(tthin,-360); x99=x4; y99=y9; pos99(tthin,-180);
  1442. x10=.25[x2,x8]; bot y10l=-d; pos10(tmed,-270);
  1443. x11=-.6x_height+u; y11=.5bar_height; x12=x1-.5u; y12l=h;
  1444. pos11(tthin,-360); x12l=x12r=x12; y12=y12l-.6; y12r=y12-.6;
  1445. filldraw stroke z9e{up}...{down}z99e...{left}z10e...{up}z11e...{right}z12e;
  1446. picture V; transform t; t=identity shifted(.6x_height,0);
  1447. V=currentpicture transformed t; currentpicture:= V;
  1448. endchar;
  1449.  
  1450. cmchar "Tamil zuu";
  1451. beginchar(125,2.2x_height#,x_height#,1.4desc_depth#);
  1452. adjust_fit(0,0);
  1453. callchar:="m";
  1454. tspecs;
  1455. h:=oldh; w:=oldw; d:=oldd;
  1456. clonex(88,8); y88r=y88l=y88=-.5d; filldraw stroke z8e--z88e;
  1457. x9=x88; y9=y88; pos9(tthin,-360); x99=x4; y99=y9; pos99(tthin,-180);
  1458. x10=.25[x2,x8]; bot y10l=-d; pos10(tmed,-270);
  1459. x11=-.6x_height+u; y11=.5bar_height; x12=.5[x11,x1]; top y12l=h;
  1460. pos11(tthin,-360); pos12(tthin,-450); x13=.8[x11,x1]; y13=y12-1.5u;
  1461. pos13(tthin,-540); x14=.3[x11,x1]; y14=y13-1.5u; pos14(tthinner,-600);
  1462. filldraw stroke z9e{up}...{down}z99e...{left}z10e...{up}z11e...{right}z12e
  1463.   ...{down}z13e...z14e;
  1464. picture V; transform t; t=identity shifted(.6x_height,0);
  1465. V=currentpicture transformed t; currentpicture:= V;
  1466. endchar;
  1467.  
  1468.  
  1469.  
  1470. cmchar "Tamil l dot";
  1471. beginchar(128,1.75x_height#,x_height#,0);
  1472. adjust_fit(0,0);
  1473. callchar:="L";
  1474. tspecs;
  1475. h:=oldh; w:=oldw; d:=oldd;
  1476. endchar;
  1477.  
  1478. cmchar "Tamil l dot i";
  1479. beginchar(130,1.75x_height#+2u#,asc_height#,0);
  1480. adjust_fit(0,0);
  1481. callchar:="L";
  1482. tspecs;
  1483. h:=oldh; w:=oldw; d:=oldd;
  1484. y13=y12; x13=x12r; x14=x13; top y14r=h; x15=x16=w-u; y15=y12; y16l=y16r=y16=0;
  1485. x16l=x16-.6; x16r=x16+.6; pos13(tthin,180); pos14(tthick,90); pos15(tthin,0);
  1486. filldraw stroke z13e{left}...{right}z14e...{down}z15e--z16e;
  1487. penlabels(14,15,16); endchar;
  1488.  
  1489. cmchar "Tamil l dot ii";
  1490. beginchar(131,1.75x_height#+u#,body_height#,0);
  1491. adjust_fit(0,0);
  1492. callchar:="L";
  1493. tspecs;
  1494. h:=oldh; w:=oldw; d:=oldd;
  1495. y13=y12; x13=x12r; 
  1496. pos13(tthin,0);
  1497. small_iito(13,s,h);
  1498. endchar;
  1499.  
  1500. cmchar "Tamil l dot u";
  1501. beginchar(132,2.05x_height#+3u#,x_height#,desc_depth#);
  1502. adjust_fit(0,0);
  1503. callchar:="L";
  1504. tspecs;
  1505. h:=oldh; w:=2.05x_height; d:=oldd;
  1506. x31=x11; y31=0; pos31(tthin,0); x33=w-u; y33=.5[y32,y34]; pos33(tthin,-180);
  1507. x32=.5[x31,x33]; y32=bar_height; pos32(tthin,-90);
  1508. x35=x1-3u; y35=.5[y1,y2]; pos35(tthin,-360); x34=.5[x35,x33]; bot y34l=-d;
  1509. pos34(tthick,-270); x36=x1; y36=y5; x36r=x36+.6; x36l=x36-.6;
  1510. y36r=y36-.6; y36l=y36+.6;
  1511. filldraw stroke z31e{up}...{right}z32e...{down}z33e...{left}z34e...{up}z35e..{right}z36e;
  1512. picture V; transform t; t=identity shifted(3u,0); V=currentpicture transformed t;
  1513. currentpicture:=V;
  1514. endchar;
  1515.  
  1516. cmchar "Tamil l dot uu";
  1517. beginchar(133,2.05x_height#+3u#,x_height#,desc_depth#);
  1518. adjust_fit(0,0);
  1519. callchar:="L";
  1520. tspecs;
  1521. h:=oldh; w:=2.05x_height; d:=oldd;
  1522. x31=x11; y31=0; pos31(tthin,0); x33=w-u; y33=.5[y32,y34]; pos33(tthin,-180);
  1523. x32=.5[x31,x33]; y32=bar_height; pos32(tthin,-90);
  1524. x35=x1-3u; y35=.5[y1,y2]; pos35(tthin,-360); x34=.5[x35,x33]; bot y34l=-d;
  1525. pos34(tthick,-270); x36=.5[x35,x1]; top y36l=h; pos36(tthin,-450);
  1526. x37=.9[x35,x1]; y37=y36-u; pos37(tthin,-540); x38=.3[x35,x1]; y38=y37-u;
  1527. pos38(tthinner,-600);
  1528. filldraw stroke z31e{up}...{right}z32e...{down}z33e...{left}z34e...{up}z35e..{right}z36e
  1529.    ...{down}z37e...z38e;
  1530. picture V; transform t; t=identity shifted(3u,0); V=currentpicture transformed t;
  1531. currentpicture:=V;
  1532. endchar;
  1533.  
  1534. cmchar "Tamil l dot ai";
  1535. beginchar(134,2.75x_height#,asc_height#,0);
  1536. adjust_fit(0,0);
  1537. callchar:="L";
  1538. dodraw:=false;
  1539. tspecs;
  1540. dodraw:=true;
  1541. h:=oldh; w:=oldw; d:=oldd;
  1542. aipoints;
  1543. z211=.5[z210,z2]; pos211(tthin,135);
  1544. filldraw stroke z201e...{down}z202e...{left}z203e...{up}z204e...z205e...{right}z206e
  1545.   ...{down}z207e...z208e...{down}z209e...{right}z210e...z211e
  1546.   ...{right}z2e...{down}z3e...{left}z4e...{up}z1e...{right}z5e...{down}z6e;
  1547. filldraw stroke z7e---z8e; filldraw stroke z9e---z10e;
  1548. filldraw stroke z11e---z12e;
  1549. picture V; transform t; t=identity shifted(x_height,0);
  1550. V=currentpicture transformed t; currentpicture:=V;
  1551. endchar;
  1552.  
  1553. cmchar "Tamil alv. r";
  1554. beginchar(136,1.3x_height#,x_height#,desc_depth#);
  1555. adjust_fit(0,0);
  1556. callchar:="R";
  1557. tspecs;
  1558. h:=oldh; w:=oldw; d:=oldd;
  1559. filldraw stroke z4e{up}...{right}z6e...{down}z7e..z8e..z9e...{down}z12e..z10e;
  1560. endchar;
  1561.  
  1562. cmchar "Tamil alv. raa";
  1563. beginchar(137,1.3x_height#+3u#,x_height#,desc_depth#);
  1564. adjust_fit(0,0);
  1565. callchar:="R";
  1566. tspecs;
  1567. h:=oldh; w:=oldw; d:=oldd;
  1568. x77=x7; y77=.4[y6,y7]; pos77(tthin,-180);
  1569. x7:=x7-u; x7r:=x7r-u; x7l:=x7l-u;
  1570. x88=x77; y88=0; pos88(tthin,-180);
  1571. x31=x5; bot y31l=-d; x32=-2u; y32=.3bar_height; 
  1572. pos31(tthick,-270); pos32(tthin,-360); 
  1573. x33=x33r=x33l=x11-.5u; y33=y11; y33l=y33+.6; y33r=y33-.6;
  1574. filldraw stroke z4e{up}...{right}z6e...{down}z77e...{down}z7e...{down}z88e...{left}z31e...{up}z32e...z33e;
  1575. picture V; transform t; t=identity shifted(3u,0);
  1576. V=currentpicture transformed t; currentpicture:=V;
  1577. endchar;
  1578.  
  1579. cmchar "Tamil alv. ri";
  1580. beginchar(138,1.7x_height#,asc_height#,desc_depth#);
  1581. adjust_fit(0,0);
  1582. callchar:="R";
  1583. tspecs;
  1584. h:=oldh; w:=oldw; d:=oldd;
  1585. filldraw stroke z4e{up}...{right}z6e...{down}z7e..z8e..z9e...{down}z12e..z10e;
  1586. x77=x6; top y77r=h; pos77(tthick,-270);
  1587. x78=w-u; y78=x_height; x79=x78; y79=y79r=y79l=0;
  1588. x79r=x79+.6; x79l=x79-.6; pos78(tthin,-360);
  1589. filldraw stroke z6e{left}...{right}z77e...{down}z78e--z79e;
  1590. endchar;
  1591.  
  1592. cmchar "Tamil alv. rii";
  1593. beginchar(139,1.3x_height#,body_height#,desc_depth#);
  1594. adjust_fit(0,0);
  1595. callchar:="R";
  1596. tspecs;
  1597. h:=oldh; w:=oldw; d:=oldd;
  1598. filldraw stroke z4e{up}...{right}z6e...{down}z7e..z8e..z9e...{down}z12e..z10e;
  1599. small_iito(6,s,h);
  1600. endchar;
  1601.  
  1602. cmchar "Tamil alv. ru";
  1603. beginchar(140,1.75x_height#,x_height#,1.4desc_depth#);
  1604. adjust_fit(0,0);
  1605. callchar:="R";
  1606. tspecs;
  1607. h:=oldh; w:=oldw; d:=oldd;
  1608. x77=x7; y77=y7; pos77(tthin,-180);
  1609. x31=x5; bot y31l=-d; x32=x1; y32=-.5d;  y33=y32+.5u; x33=x32+.5u; x34=w-u; y34=y33;
  1610. pos31(tthick,-270); pos32(tthin,-360); pos33(tthin,-450); pos34(tthin,-450);
  1611. filldraw stroke z4e{up}...{right}z6e...{down}z77e...{left}z31e...{up}z32e...{right}z33e--z34e;
  1612. x35r=x34; y35=y34r; x36=x35; y36=x_height; pos35(tthick,0); pos36(tthick,0);
  1613. filldraw stroke z35e--z36e;
  1614. endchar;
  1615.  
  1616. cmchar "Tamil alv. ruu";
  1617. beginchar(141,2x_height#,x_height#,1.4desc_depth#);
  1618. adjust_fit(0,0);
  1619. callchar:="R";
  1620. tspecs;
  1621. h:=oldh; w:=oldw; d:=oldd;
  1622. x77=x7; y77=y7; pos77(tthin,-180);
  1623. x31=x5; bot y31l=-d; x32=x1; y32=-.5d; y33=y32+.5u; x33=x32+.5u; x34=w-3.3u; y34=y33;
  1624. pos31(tthick,-270); pos32(tthin,-360); pos33(tthin,-450); pos34(tthin,-450);
  1625. filldraw stroke z4e{up}...{right}z6e...{down}z77e...{left}z31e...{up}z32e...{right}z33e--z34e;
  1626. x35r=x34; y35=y34r; x36=x35; y36=x_height; pos35(tthin,0); pos36(tthin,0);
  1627. filldraw stroke z35e--z36e;
  1628. x37=x36l; top y37r=x_height; x38=w-.3u; y38=y37; pos37(tthin,90); pos38(tthin,90);
  1629. filldraw stroke z37e--z38e;
  1630. x39r=x38-.7u; y39=x_height; x40=x39; y40=0; pos39(tthick,0); pos40(tthick,0);
  1631. filldraw stroke z39e--z40e;
  1632. endchar;
  1633.  
  1634.  
  1635. cmchar "Tamil 2loop n";
  1636. beginchar(144,2x_height#,x_height#,0);
  1637. adjust_fit(0,0);
  1638. callchar:="N";
  1639. tspecs;
  1640. h:=oldh; w:=oldw; d:=oldd;
  1641. filldraw stroke z13e---z14e;
  1642. filldraw stroke z15e---z16e;
  1643. endchar;
  1644.  
  1645. cmchar "Tamil 2loop naa";
  1646. beginchar(145,2x_height#+3u#,x_height#,desc_depth#);
  1647. adjust_fit(0,0);
  1648. w:=2x_height;
  1649. callchar:="N";
  1650. tspecs;
  1651. h:=oldh; w:=oldw; d:=oldd;
  1652. x21=x16+u; y21=y6;
  1653. y22=-d; x22=.4[x1,x21];
  1654. x23=x1; y23=.8x_height;
  1655. pos21(tthick,-1080); pos22(tthin,-1170);
  1656. y23l+.5=y23r-.5=y23; x23l=x23; x23r=x23-1;
  1657. filldraw stroke z13e{right}...{down}z21e...{left}z22e...{right}z23e;
  1658. picture V; transform t; t=identity shifted(3u,0);
  1659. V=currentpicture transformed t; currentpicture:=V;
  1660. endchar;
  1661.  
  1662.  
  1663.  
  1664. cmchar "Tamil 2loop ni";
  1665. beginchar(146,2.25x_height#,asc_height#,0);
  1666. adjust_fit(0,0);
  1667. callchar:="N";
  1668. tspecs;
  1669. h:=oldh; w:=oldw; d:=oldd;
  1670. filldraw stroke z13e---z14e;
  1671. filldraw stroke z15e---z16e;
  1672. x21=x16; y21=x_height; pos21(tthin,0); x22=x21; top y22l=h; pos22(tthick,-90);
  1673. x23=w-u; y23=x_height; x24=x23; y24=y24l=y24r=0; x24r=x24-.6; x24l=x24+.6;
  1674. pos23(tthin,-180);
  1675. filldraw stroke z21e{left}...{right}z22e...{down}z23e--z24e;
  1676. penlabels(22,23,24);
  1677. endchar;
  1678.  
  1679. cmchar "Tamil 2loop nii";
  1680. beginchar(147,2x_height#,body_height#,0);
  1681. adjust_fit(0,0);
  1682. callchar:="N";
  1683. tspecs;
  1684. h:=oldh; w:=oldw; d:=oldd;
  1685. filldraw stroke z13e---z14e;
  1686. filldraw stroke z15e---z16e;
  1687. small_iito(16,s,h);
  1688. endchar;
  1689.  
  1690. cmchar "Tamil 2loop nu";
  1691. beginchar(148,2.5x_height#+3u#,x_height#,desc_depth#);
  1692. adjust_fit(0,0);
  1693. w:=2x_height;
  1694. callchar:="N";
  1695. tspecs;
  1696. h:=oldh; w:=2.5x_height; d:=oldd;
  1697. x21=x16+u; y21=y6;
  1698. y22=-d; x22=.4[x1,x21];
  1699. x23=x1-3u; y23=-.43d; x24=x23+u; y24=-.25d;
  1700. pos21(tthick,-1080); pos22(tthin,-1170);
  1701. pos23(tthin,-1260); pos24(tthin,-1350);
  1702. y25=y24; x25=w-2u; pos25(tthin,-1350);
  1703. rt x26r=x25; y26=y25; pos26(tthick,0); x27=x26; y27=h; pos27(tthick,0);
  1704. filldraw stroke z13e{right}...{down}z21e...{left}z22e...{up}z23e{up}...{right}z24e--z25e;
  1705. filldraw stroke z26e--z27e;
  1706. picture V; transform t; t=identity shifted(3u,0);
  1707. V=currentpicture transformed t; currentpicture:=V;
  1708. endchar;
  1709.  
  1710. cmchar "Tamil 2loop nuu";
  1711. beginchar(149,2.8x_height#+3u#,x_height#,desc_depth#);
  1712. adjust_fit(0,0);
  1713. w:=2x_height;
  1714. callchar:="N";
  1715. tspecs;
  1716. h:=oldh; w:=2.5x_height; d:=oldd;
  1717. x21=x16+u; y21=y6;
  1718. y22=-d; x22=.4[x1,x21];
  1719. x23=x1-3u; y23=-.43d; x24=x23+u; y24=-.25d;
  1720. pos21(tthick,-1080); pos22(tthin,-1170);
  1721. pos23(tthin,-1260); pos24(tthin,-1350);
  1722. y25=y24; x25=w-3u; pos25(tthin,-1350);
  1723. rt x26r=x25; y26=y25; pos26(tthin,0); x27=x26; y27=h; pos27(tthin,0);
  1724. filldraw stroke z13e{right}...{down}z21e...{left}z22e...{up}z23e{up}...{right}z24e--z25e;
  1725. filldraw stroke z26e--z27e;
  1726. w:=2.8x_height;
  1727. x28=lft x27l; top y28r=h; x29=w-u; y29=y28; pos28(tthin,90); pos29(tthin,90);
  1728. rt x30r=x29-.7u; y30=h; x31=x30; y31=0; pos30(tthick,0); pos31(tthick,0);
  1729. filldraw stroke z28e--z29e; filldraw stroke z30e--z31e;
  1730. picture V; transform t; t=identity shifted(3u,0);
  1731. V=currentpicture transformed t; currentpicture:=V;
  1732. endchar;
  1733.  
  1734. cmchar "Tamil 2loop n ai";
  1735. beginchar(150,3x_height#,asc_height#,0);
  1736. adjust_fit(0,0);
  1737. callchar:="N";
  1738. dodraw:=false;
  1739. tspecs;
  1740. dodraw:=true;
  1741. h:=oldh; w:=oldw; d:=oldd;
  1742. aipoints;
  1743. z211=.5[z210,z2]; pos211(tthin,135);
  1744. filldraw stroke z201e...{down}z202e...{left}z203e...{up}z204e...z205e...{right}z206e
  1745.   ...{down}z207e...z208e...{down}z209e...{right}z210e...z211e
  1746.   ...{right}z2e...{down}z3e...{left}z4e..z81e...{right}z5e
  1747.   ...{down}z6e...{left}z7e...{up}z8e...{right}z13e---z14e;
  1748. filldraw stroke z15e---z16e;
  1749. picture V; transform t; t=identity shifted(x_height,0);
  1750. V=currentpicture transformed t; currentpicture:=V;
  1751. endchar;
  1752.  
  1753. cmchar "grantha s dot";
  1754. beginchar(176,2.2x_height#,asc_height#,desc_depth#);
  1755. adjust_fit(0,0);
  1756. callchar:="S";
  1757. tspecs;
  1758. h:=oldh; w:=oldw; d:=oldd;
  1759. endchar;
  1760.  
  1761. cmchar "grantha s dot i";
  1762. beginchar(178,2.5x_height#,body_height#+2u#,desc_depth#);
  1763. adjust_fit(0,0);
  1764. callchar:="S";
  1765. tspecs;
  1766. h:=oldh; w:=oldw; d:=oldd;
  1767. x50=x44; y50=y44; pos50(tthin,90);
  1768. x51=x50; top y51l=h; pos51(tthick,-90);
  1769. x52=x53=w-u; y52=x_height; y53=y53r=y53l=0; pos52(tthin,-180);
  1770. x53r=x53-.6; x53l=x53+.6;
  1771. filldraw stroke z50e{left}...{right}z51e...{down}z52e--z53e;
  1772. penlabels(50,51,52,53);
  1773. endchar;
  1774.  
  1775. cmchar "grantha s dot ii";
  1776. beginchar(179,2.4x_height#,body_height#+4u#,desc_depth#);
  1777. adjust_fit(0,0);
  1778. callchar:="S";
  1779. tspecs;
  1780. h:=oldh; w:=oldw; d:=oldd;
  1781. x50=x44; y50=y44; pos50(tthin,0);
  1782. small_iito(50,s,h);
  1783. endchar;
  1784.  
  1785. cmchar "grantha s";
  1786. beginchar(184,2.4x_height#,x_height#,0);
  1787. adjust_fit(0,0);
  1788. callchar:="s";
  1789. tspecs;
  1790. h:=oldh; w:=oldw; d:=oldd;
  1791. endchar;
  1792.  
  1793. cmchar "grantha si";
  1794. beginchar(186,2.6x_height#,asc_height#,0);
  1795. adjust_fit(0,0);
  1796. callchar:="s";
  1797. tspecs;
  1798. h:=oldh; w:=oldw; d:=oldd;
  1799. z82=z16; x83=x16; top y83l=h; pos82(tthin,45); pos83(tthick,-90);
  1800. x85=x84=w-u; y84=x_height; y85=y85r=y85l=0; x85r=x85-.6; x85l=x85+.6;
  1801. pos84(tthin,-180);
  1802. filldraw stroke z82e{left}...{right}z83e...{down}z84e--z85e;
  1803. penlabels(83,84,85);
  1804. endchar;
  1805.  
  1806. cmchar "grantha sii";
  1807. beginchar(187,2.4x_height#,body_height#,0);
  1808. adjust_fit(0,0);
  1809. callchar:="s";
  1810. tspecs;
  1811. h:=oldh; w:=oldw; d:=oldd;
  1812. x100=x16-2.5u; x101=x16+.5u; top y101l=h; pos101(tthick,-90);
  1813. y100=.5[y16,y101]; pos100(tthin,0); 
  1814. x102=x101+u; y102=y101-.5u; pos102(.7tthick,-135); x103=x102;
  1815. y103=y102-2u; pos103(tthin,-270); x104=x104r=x104l=x102;
  1816. y104=y101; y104r=y104-.6; y104l=y104+.6;
  1817. filldraw stroke z16e{left}...{up}z100e...{right}z101e...z102e...{left}z103e...{right}z104e;
  1818. endchar;
  1819.  
  1820. cmchar "grantha j";
  1821. beginchar(192,1.75x_height#,x_height#,.8x_height#);
  1822. adjust_fit(0,0);
  1823. callchar:="j";
  1824. tspecs;
  1825. h:=oldh; w:=oldw; d:=oldd;
  1826. endchar;
  1827.  
  1828.  
  1829. cmchar "grantha ji";
  1830. beginchar(194,2.05x_height#,asc_height#,.8x_height#);
  1831. adjust_fit(0,0);
  1832. callchar:="j";
  1833. tspecs;
  1834. h:=oldh; w:=oldw; d:=oldd;
  1835. z182=z10; x183=x10; top y183l=h; pos182(tthin,90); pos183(tthick,-90);
  1836. x185=x184=w-u; y184=x_height; y185=y185r=y185l=0; x185r=x185-.6; x185l=x185+.6;
  1837. pos184(tthin,-180);
  1838. filldraw stroke z182e{left}...{right}z183e...{down}z184e--z185e;
  1839. penlabels(183,184,185);
  1840. endchar;
  1841.  
  1842. cmchar "grantha jii";
  1843. beginchar(195,1.75x_height#,body_height#,.8x_height#);
  1844. adjust_fit(0,0);
  1845. callchar:="j";
  1846. tspecs;
  1847. h:=oldh; w:=oldw; d:=oldd;
  1848. z82=z10; pos82(tthinner,0); small_iito(82,s,h);
  1849. endchar;
  1850.  
  1851.  
  1852.  
  1853.  
  1854.  
  1855. cmchar "grantha h";
  1856. beginchar(200,3x_height#,x_height#,desc_depth#);
  1857. adjust_fit(0,0);
  1858. callchar:="h";
  1859. tspecs;
  1860. h:=oldh; w:=oldw; d:=oldd;
  1861. endchar;
  1862.  
  1863.  
  1864. cmchar "grantha hi";
  1865. beginchar(202,3.2x_height#,asc_height#,desc_depth#);
  1866. adjust_fit(0,0);
  1867. callchar:="h";
  1868. tspecs;
  1869. h:=oldh; w:=oldw; d:=oldd;
  1870. z180=z106; pos180(tthin,90); x181=x180; top y181l=h; pos181(tthick,-90);
  1871. x182=x183=w-u; y182=x_height; y183=y183r=y183l=0; pos182(tthin,-180);
  1872. x183r=x183-.6; x183l=x183+.6; 
  1873. filldraw stroke z180e{left}...{right}z181e...{down}z182e--z183e;
  1874. penlabels(180,181,182,183);
  1875. endchar;
  1876.  
  1877. cmchar "grantha hii";
  1878. beginchar(203,3x_height#,body_height#,desc_depth#);
  1879. adjust_fit(0,0);
  1880. callchar:="h";
  1881. tspecs;
  1882. h:=oldh; w:=oldw; d:=oldd;
  1883. small_iito(106,s,h);
  1884. endchar;
  1885.  
  1886. cmchar "grantha ksh";
  1887. beginchar(208,3.6x_height#,asc_height#,desc_depth#);
  1888. adjust_fit(0,0);
  1889. callchar:="c";
  1890. tspecs;
  1891. h:=oldh; w:=oldw; d:=oldd;
  1892. y202=y25; x202=x4+2.5u; pos202(tthin,90); x241r=w-u; 
  1893. x206=.4[x202,x241]; x207=.3[x202,x241]; x205=.2[x202,x241];
  1894. top y205r=x_height; pos205(tthin,-270); y206=.5[y205,y207]; pos206(tthick,-360);
  1895. bot y207r=0; pos207(tmed,-450); x240=.8[x207,x241]; bot y240r=0;
  1896. pos240(tmed,-450); y241=.5bar_height; pos241(tthick,-360);
  1897. x243=.5[x207,x240]; y243=h-y241; z242=.5[z241,z243];
  1898. pos242(.5(tthick+tthin),-315); pos243(tthin,-360);
  1899. x244=.5[x243,x245]; top y244l=h; pos244(tmed,-450); x245=x243+4u; y245=y243;
  1900. pos245(tthin,-540); x246=.5[x207,x243]; bot y246l=-d; pos246(tthinner,-585);
  1901. x203=.4[x202,x207]; y203=.5[y202,y204]; pos203(tthick,0); x204=x202;
  1902. bot y204r=0; pos204(tthin,-90); x201=2x202-x203; y201=y203; pos201(tthin,-180);
  1903. filldraw stroke z25e--z202e{right}...{down}z203e...{left}z204e...z201e...{right}z205e
  1904.   ...{down}z206e...{left}z207e;
  1905. filldraw stroke z207e--z240e{right}...{up}z241e...{z243-z241}z242e...{up}z243e
  1906.   ...{right}z244e...z245e--z246e;
  1907. endchar;
  1908.  
  1909. cmchar "grantha kshi";
  1910. beginchar(210,3.6x_height#+2.6u#,body_height#+2u#,desc_depth#);
  1911. adjust_fit(0,0);
  1912. callchar:="c";
  1913. tspecs;
  1914. h:=oldh; w:=3.6x_height; d:=oldd;
  1915. y202=y25; x202=x4+2.5u; pos202(tthin,90); x241r=w-u; 
  1916. x206=.4[x202,x241]; x207=.3[x202,x241]; x205=.2[x202,x241];
  1917. top y205r=x_height; pos205(tthin,-270); y206=.5[y205,y207]; pos206(tthick,-360);
  1918. bot y207r=0; pos207(tmed,-450); x240=.8[x207,x241]; bot y240r=0;
  1919. pos240(tmed,-450); y241=.5bar_height; pos241(tthick,-360);
  1920. x243=.5[x207,x240]; y243=asc_height-y241; z242=.5[z241,z243];
  1921. pos242(.5(tthick+tthin),-315); pos243(tthin,-360);
  1922. x244=.5[x243,x245]; top y244l=asc_height; pos244(tmed,-450); x245=x243+4u; y245=y243;
  1923. pos245(tthin,-540); x246=.5[x207,x243]; bot y246l=-d; pos246(tthinner,-585);
  1924. x203=.4[x202,x207]; y203=.5[y202,y204]; pos203(tthick,0); x204=x202;
  1925. bot y204r=0; pos204(tthin,-90); x201=2x202-x203; y201=y203; pos201(tthin,-180);
  1926. filldraw stroke z25e--z202e{right}...{down}z203e...{left}z204e...z201e...{right}z205e
  1927.   ...{down}z206e...{left}z207e;
  1928. filldraw stroke z207e--z240e{right}...{up}z241e...{z243-z241}z242e...{up}z243e
  1929.   ...{right}z244e...z245e--z246e;
  1930. w:=oldw;
  1931. x250=x244; top y250l=asc_height; pos250(tthin,-90); x251=x245; top y251=h;
  1932. pos251(tthick,90); x252=w-u; y252=x_height; pos252(tthin,0); x253=x252;
  1933. y253=y253r=y253l=0; x253l=x253-.6; x253r=x253+.6;
  1934. filldraw stroke z250e{left}...{right}z251e...{down}z252e--z253e;
  1935. endchar;
  1936.  
  1937. cmchar "grantha kshii";
  1938. beginchar(211,3.6x_height#,body_height#+4u#,desc_depth#);
  1939. adjust_fit(0,0);
  1940. callchar:="c";
  1941. tspecs;
  1942. h:=oldh; w:=oldw; d:=oldd;
  1943. y202=y25; x202=x4+2.5u; pos202(tthin,90); x241r=w-u; 
  1944. x206=.4[x202,x241]; x207=.3[x202,x241]; x205=.2[x202,x241];
  1945. top y205r=x_height; pos205(tthin,-270); y206=.5[y205,y207]; pos206(tthick,-360);
  1946. bot y207r=0; pos207(tmed,-450); x240=.8[x207,x241]; bot y240r=0;
  1947. pos240(tmed,-450); y241=.5bar_height; pos241(tthick,-360);
  1948. x243=.5[x207,x240]; y243=asc_height-y241; z242=.5[z241,z243];
  1949. pos242(.5(tthick+tthin),-315); pos243(tthin,-360);
  1950. x244=.5[x243,x245]; top y244l=asc_height; pos244(tmed,-450); x245=x243+4u; y245=y243;
  1951. pos245(tthin,-540); x246=.5[x207,x243]; bot y246l=-d; pos246(tthinner,-585);
  1952. x203=.4[x202,x207]; y203=.5[y202,y204]; pos203(tthick,0); x204=x202;
  1953. bot y204r=0; pos204(tthin,-90); x201=2x202-x203; y201=y203; pos201(tthin,-180);
  1954. filldraw stroke z25e--z202e{right}...{down}z203e...{left}z204e...z201e...{right}z205e
  1955.   ...{down}z206e...{left}z207e;
  1956. filldraw stroke z207e--z240e{right}...{up}z241e...{z243-z241}z242e...{up}z243e
  1957.   ...{right}z244e...z245e--z246e;
  1958. small_iito(244,s,h)
  1959. endchar;
  1960.  
  1961. cmchar "Tamil ayyatham";
  1962. beginchar(240,asc_height#+2u#,asc_height#,0);
  1963. adjust_fit(0,0); pickup light_rule.nib; autorounded;
  1964. lft x6=hround u; x2=5u-x6; bot y4=0; y2=2u; circle_points; draw_circle;
  1965. transform ta; ta=identity shifted(w-5u,0); transform tb; tb=identity shifted(.5w-2.5u,h-6u);
  1966. picture VA; VA=currentpicture transformed ta;
  1967. picture VB; VB=currentpicture transformed tb;
  1968. addto currentpicture also VA; addto currentpicture also VB;
  1969. endchar;
  1970.  
  1971. % following taken directly from cmr's accent.mf
  1972. cmchar "Dot accent";
  1973. numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
  1974. beginchar(241,5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
  1975. define_whole_blacker_pixels(dot_diam);
  1976. italcorr h#*slant+.5dot_diam#-2u#;
  1977. adjust_fit(0,0);
  1978. pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90);
  1979. x1=x2=.5w; top y2r=h+1;
  1980. if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi
  1981. y1=.5[y2l,y2r]; dot(1,2);  % dot
  1982. penlabels(1,2); endchar;
  1983.  
  1984. cmchar "grantha u";
  1985. beginchar(242,x_height#,asc_height#,0);
  1986. adjust_fit(0,0);
  1987. x1=u; x2=w-u; top y1r=h; y2=y1; pos1(tthinner,90); pos2(tthinner,90);
  1988. rt x3r=x2; x4=x3; y3=h; y4=h-3u; pos3(tthinner,0); pos4(tthinner,0);
  1989. x5=x2; bot y5l=y4; x6=x5-3u; y6=y5; pos5(tthinner,90); pos6(tthinner,90);
  1990. lft x7l=x6; y7=y4; y8=y3; x8=x7; pos7(tthinner,0); pos8(tthinner,0);
  1991. filldraw stroke z1e--z2e;
  1992. filldraw stroke z3e--z4e;
  1993. filldraw stroke z5e--z6e;
  1994. filldraw stroke z7e--z8e;
  1995. %picture V; transform t; t=identity shifted(-x_height,0);
  1996. %V=currentpicture transformed t; currentpicture:=V;
  1997. endchar;
  1998.  
  1999. cmchar "grantha uu";
  2000. beginchar(243,1.2x_height#,asc_height#+3u#,0);
  2001. adjust_fit(0,0);
  2002. w:=x_height; h:=asc_height;
  2003. x1=u; x2=w-u; top y1r=h; y2=y1; pos1(tthinner,90); pos2(tthinner,90);
  2004. rt x3r=x2; x4=x3; y3=h; y4=h-3u; pos3(tthinner,0); pos4(tthinner,0);
  2005. x5=x2; bot y5l=y4; x6=x5-3u; y6=y5; pos5(tthinner,90); pos6(tthinner,90);
  2006. lft x7l=x6; y7=y4; y8=y3; x8=x7; pos7(tthinner,0); pos8(tthinner,0);
  2007. filldraw stroke z1e--z2e;
  2008. filldraw stroke z3e--z4e;
  2009. filldraw stroke z5e--z6e;
  2010. filldraw stroke z7e--z8e;
  2011. w:=1.2x_height; h:=asc_height+3u;
  2012. x10=w-u; x11=.5[x10,x12]; y11=y4-3u; y10=.5[y9,y11]; top y9l=h; x9=.5[x8,x10];
  2013. pos9(tthinner,-90); pos10(tthinner,-180); pos11(tthinner,-270);
  2014. y12=y4; x12=x6-2u; pos12(tthinner,-360);
  2015. filldraw stroke z8e{up}...{right}z9e...{down}z10e...{left}z11e...{up}z12e;
  2016. %picture V; transform t; t=identity shifted(-x_height,0);
  2017. %V=currentpicture transformed t; currentpicture:=V;
  2018. endchar;
  2019.  
  2020.  
  2021.